In Ordnung ich hab jetzt folgendes eingestellt:
1. Im Deklarationsteil hab ich
Code:
var
vabbruch : boolean = false;
2. TForm1.FormCreate hat im OnClose Fenster des Objektinspektors babbruch
3. Die babbruch Prozedur dazu sieht so aus
Code:
procedure TForm1.bAbbruch(Sender: TObject; var Action: TCloseAction);
begin
vAbbruch := true;
end;
4. Trotz der Abbruchbedingung
Code:
until (GetTickCount-lTick>=12*3600*1000) or (vAbbruch = true);
schließt sich das Delphi Programm NICHT beim klicken des kleinen schwarzen kreuzes ganz rechts oben im Fenster (biSystemMenu) .... auch ALT + F4 schließt das Programm nicht. Es scheint als liefe diese Delay Funktion dennoch weiter.
