Wie Procedure abbrechen

[Insider2004]

Danke soweit! Allerdings habe ich noch etwas:

1.Problem:
Das Application.ProcessMessages; ermöglicht meiner Application, dass ich den Abbruch-Button drücken kann. Dieser ist aber sehr schlecht "zu erreichen". D.h. die meiste Rechenzeit wird in der Schleife verbraucht. Wie kann ich dem Abbruch-Button sozusagen mehr Zeit geben?

2. Problem
Das Application.ProcessMessages; macht es möglich, dass meine Procedure nochmals von "hinten" aufgerufen wird. Wie vermeide ich diese Rekursion?


procedure TForm1.OnButtonClick;
begin
for i := 0 to 2323324 do
begin
// ...
Application.ProcessMessages;
if FAborted then Break;
end;
end;