Abbrechen einer Schleife mit Button

[RavenIV]

Achso, jetzt hab ich's glaub ich geschnallt.

Ein Button "Start", bei dem soll die Schleife loslaufen.
Ein Button "Stop", da soll die Schleife gestoppt werden.

In ButtonStartClick:
fAbbrechen := False;
while not fAbbrechen do
begin
Application.ProcessMessages;
MachWas;
Application.ProcessMessages;
MachWasAnderes;
Application.ProcessMessages;
end;

und in ButtonStopClick:
fAbbrechen := True;

In der Zeit, wenn MachWas oder MachWasAnderes laufen, wird der Stop-Button eben nicht reagieren.