Close geht nicht zum Programmbeenden

[Chegga]

@ alcaeus:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Knopf: Integer;
begin
  Knopf := Application.MessageBox
   ('Diese Software ist schon geöffnet. Beenden?', 'Hinweis', 1+16);
  if Knopf = IDOK then Application.Terminate;
end;

MfG Marc