Application beenden, wärend Procedure

[Dani]

Delphi-Quellcode:

procedure Finity;
begin
  while true do begin
    Foo();
    if ZeitZumSterben then begin
      Application.Terminate;  //Beendet das Programm sobald möglich.
      Exit;  //Verlässt die Prozedur und das Programm wird beendet.   
    end;
  end;
end;

Das darf natürlich nicht in CloseQuery drin stehen; dort solltest du wirklich nur prüfen, ob du CanClose auf true oder false setzen willst.