Définir le bouton par défaut dans un message

function DefMessageDlg( const ACaption: string;
const Msg: string;
DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons;
DefButton: Integer;
HelpCtx: Longint): Integer;
var
i: Integer;
btn: TButton;
begin
with CreateMessageDialog(Msg, DlgType, Buttons) do
try
Caption := aCaption;
HelpContext := HelpCtx;
for i := 0 to ComponentCount - 1 do
begin
if (Components[i] is TButton) then
begin
btn := TButton(Components[i]);
btn.Default := btn.ModalResult = DefButton;
if btn.Default then ActiveControl := Btn;
end;
end;
Result := ShowModal;
finally
Free;
end;
end;

//fixe le focus sur non

procedure TForm1.Button1Click(Sender: TObject);
begin
if DefMessageDlg('Titel',
'....?',
mtConfirmation,
mbYesNoCancel,
mrno,
0) = mrYes
then
ShowMessage('....');
end;