Application beenden, wärend Procedure

[gandime]

ich habe aber zwei verschiedene schleifen:

Delphi-Quellcode:

repeat
bt_weiter.Enabled:=true;
  repeat
    application.ProcessMessages;
    sleep(10);
  until b_fertig=true;
  b_fertig:=false;
until set_pop3=true;

Delphi-Quellcode:

procedure TForm1.bt_stopClick(Sender: TObject);
begin
  //hiermit will ich alle anderen Schleifen beenden
end;

das geht ja mit beak exit usw. nicht