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