MessageDlg mit falschem Default

[himitsu]

Ich bin mir sicher, dass ging mal, aber gerade bemerkt, dass es nicht mehr geht.
Und ich kann mir eigentlich nicht vorstellen, dass es wirklich kaputt sein sollte, ohne dass es einer gemerkt hat...

Delphi XE + Windows Server 2016 mit aktiven Themes (10.2 teste ich heute abend auch mal),
also intern geht es auf TTaskMessageDialog. (nicht die selbstgebauten VCL-TForm aka TMessageForm / CreateMessageDialog)

Die ersten beiden Fragen sollten den [NEIN]-Button aktiviert haben, aber es ist [JA], was bei [Leerzeichen] und [Enter] nun zu Fehlern führt.

Delphi-Quellcode:

if oneonly then
  R := MessageDlg(S, mtCustom, [mbYes, mbNo], 0, mbNo)
else
  R := MessageDlg(S, mtCustom, [mbYes, mbNo, mbNoToAll, mbYesToAll, mbAbort], 0, mbNo);
case R of
  mrAbort:
    Abort;
  mrYes:
    Result := True;
  mrYesToAll: begin
    YesToAll := MessageDlg('Wirklich "JA" für Alle?', mtCustom, [mbYes, mbNo], 0, mbNo) = mrYes;
    Result   := True;
  end;
  mrNoToAll: begin
    NoToAll := True;
    Result  := False;
  end;
  else {mrNo or [X]}
    Exit(False);
end;