procedure sleep(ms:cardinal);
var
  tc:cardinal;
begin
  tc:=GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount-tc > ms;
end;