Windows Fenster mit Ok und abbrechen?

[Chegga]

Hi,

ich werfe mal diesen Code in den Raum.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MessageBox('Das Programm wird beendet', 'Info', 49);
end;