So fasse ich das auch auf, hier mit wenigen Kommentaren:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TForm;
begin
// 2 Buttons erzeugen, deren Beschriftung man dann anpasst
f := CreateMessageDialog('Jetzt oder später?', mtInformation, [mbOk, mbCancel]);
//Beschriftung anpassen
(f.FindComponent('Cancel') as TButton).Caption := 'Jetzt';
(f.FindComponent('OK') as TButton).Caption := 'Später';
//Dialog anzeiegn
f.ShowModal;
f.Free;
end;
Die Rückgabewerte sind die selben, wie beim normalen Dialog eben auch.
Nachtrag:
CreateMessageDialog ist besser als ich dachte.