Application beenden, wärend Procedure

[gandime]

Das hilft/funktioniert nicht, da das Prog in einer repeat-Schleife steckt wo es nicht raus kommt:

Delphi-Quellcode:

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

ich könnte natürlich überall folgendes hinzufügen:

until (set_pop3=true) or (application.Terminated); Aber da habe ich Angst das etwas am pop3 ausgelöst wird was noch nicht gemacht werden soll wie z.B. eMail löschen oder sowas.

Das könnte man natürlich auch umgehen

Delphi-Quellcode:

if application.terminated then
begin
  exit;
end;

aber bei fast 10000 Zeilen Code habe ich nicht recht viel lust das alles nachzugucken und einzufügen