Schleife abbrechen

[KeyBe]

Hallo,
ich möchte gern mit Hilfe einer Checkbox eine Schleife abbrechen können. Nur leider bleibt die form nicht aktiv.
Das ist die Procedure:

Code:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
url : string;
Zaehler, Anzahl : integer;
begin
speedbutton1.visible:=false;
Anzahl:=strtoint(edit2.text);
Zaehler:=0;
repeat
ShellExecute(Application.Handle,'open','Hilfsprogramm.exe',''{Parameter},'',SW_HIDE);
sleep(30000);
url:=edit1.text;
ShellExecute(Handle,'open',PAnsiChar(url),nil,nil,SW_HIDE);
sleep(5000);
Zaehler:=Zaehler+1;
Application.ProcessMessages;
until (Zaehler=Anzahl) or (Checkbox1.checked);
speedbutton2.visible:=true;
showmessage('Prozess abgeschlossen');
end;

Wo ist der Fehler?
Danke im Voraus!