Funktion abbrechen

[Chegga]

Hi,

Delphi-Quellcode:

const Max = 1;
var Abbruch: Integer;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var Knopf: Integer;
begin
  // bla bla bla...
  inc (Abbruch);
  If Abbruch > Max then
  begin
   Button1.Caption := 'Abbrechen';
   Knopf := Application.Messagebox('Soll der Vorgang abgebrochen werden?', 'Meldung',1+16);
   if Knopf = IDYes then Abort;
  end;
   if Knopf = IDCancel then machwas;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Abbruch := 1;
end;

MfG Marc

P.S.: Code nicht getestet...