procedure Delay(msecs:integer); //MainForm.Delay
var
   FirstTickCount: Dword;
begin
     FirstTickCount:=GetTickCount;
     repeat
       Application.ProcessMessages;
     until (GetTickCount-FirstTickCount) >= Dword(msecs);
end;