procedure WaitTime();
begin
  if (GetTickCount() < WaitTimer) then Exit;
  wait(2000);
  WaitTimer := GetTickCount() + 300000;
end;

using this "or (GetTickCount() < WaitTimer)" but i want it to reset timer each loop.