30 min warte schleife

[abi]

Hallo
ich brächte was das mein Programm ablauf für 30 min unterbricht.

Es sollen aber noch alle timer gehen, ich muss auch aus dieser Schleife wieder rauskommen sollen.

Ich habs mit diesem Code probiert.

Code:

Source: 
Start:=GetTickCount; 
REPEAT 
  Antwort := PruefeGeber(); 
UNTIL (GetTickCount-Start>=10000) OR Antwort<>'';

Aber da gehen meine Timer nicht mehr oder besser gesagt er ist abgestürtzt.

Also keine gute lösung.

Freu mich über jeden Tip, danke.

mfg
abi