Hi !
Setze dir in das OnClose-Ereigniss eine Variable bAbbruch (auf true setzten, beim initialisieren auf false !!!) und erweitere die Schleife folgendermassen:
Delphi-Quellcode:
...
until ((GetTickCount-lTick>=12*3600*1000) [B]or (bAbbruch)[/B]);
...
Gruß, Helld