var
   ST, T: DWORD; // ST - Начальное время
const
   Slp = 1000; // Время простоя в мс.
begin
   ST := GetTickCount;
   repeat
     T := GetTickCount - ST;
     Application.ProcessMessages;
   until T >= Slp;
   // Остальной код
end;