procedure mysleep(ms:Integer; const onems:Integer=0);
begin
if onems<=0 then
Begin
sleep(ms);
exit;
End;
while ms>0 do
Begin
if ms>onems then
Begin
sleep(onems);
application.ProcessMessages;
dec(ms,onems);
Continue;
End;
sleep(ms);
//application.ProcessMessages;
exit;
End;
end;