Hi,
du packst eine Variable "FAborted: Boolean" in den Private-Abschnitt Deines Forms.
Die Schleife sieht dann z.B. so aus:
Delphi-Quellcode:
// Vorher auf false setzen!
FAborted := False;
for i := 0 to 2323324 do
begin
// ...
Application.ProcessMessages;
if FAborted then Break;
end;
Schleifen abbrechen kannst Du mit Break (bei repeat oder while Schleifen, solltest Du es aber über die Abbruchbedingung der Schleife selbst tun!), Prozeduren mit Exit.
In am Abbrechen Button schreibst Du nun
FAborted := True;
mfG
mirage228