procedure TForm1.Delay(msecs : Longint);
var
   FirstTick : longint;
begin
     FirstTick:=GetTickCount;
     repeat    
       Application.ProcessMessages; 
       {для того чтобы не "завесить" Windows}
     until GetTickCount-FirstTick >= msecs;
end;