das DELAY unterbrechen ....

[Rapthor]

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.