[mozarttt]

var
starttime,timeout: Integer
begin
timeout := 6000; // в мсекундах
starttime := GetTickCount;
while GetTickCount < (starttime + timeout) do
begin
....... //творим что хотим
if (....) then Break;
Application.ProcessMessages;
end;
end;