das DELAY unterbrechen ....

[Rapthor]

Ich hab ins Form1 ein OnClose Eregnis "bAbbruch" gesetzt .... bis hierhin alles okay. Jetzt komm ich ja direkt in den Quelltext mit der Prozedur

Code:

procedure TForm1.bAbbruch(Sender: TObject; var Action: TCloseAction);

Und was muss ich hier zwischen begin und end reinschreiben?

Meine until Zeile habe ich auch erweitert .... die sieht jetzt so aus

Code:

until (GetTickCount-lTick>=12*3600*1000) or bAbbruch;

Unter VAR hab ich bAbbruch als boolean gesetzt-
Achja und gleich am Anfang bei Form1.Create hab ich bAbbruch auf FALSE gesetzt.
Das ist alles aber es will nicht klappen.