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.