Messagedlg und Default Button funkt nicht

[Schuster]

Hallo
lt. OH sollte man im Messagedlg auch den default Button setzten können nur schaff ich das nicht

kann mir jemand einen Tipp geben wie das funkt??

Hatte es bisher mit Messagebox gemacht aber wenns auch mit Messagdlg funken soll würd ich gerne dieses auch
verwenden.

Hier lt. OH:

Delphi-Quellcode:

if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

function MessageDlg(const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;