PC-X 1997 October/pcx14_9710.iso/swag/delphi.swg/0008_Delay Procedure in Delphi.pas

Pascal/Delphi Source File | 1995-11-22 | 566 b | 19 lines

{This is an equivalent to the Delay procedure in Borland Pascal. You may
find it of interest. It is not mine. It was given to me by someone else
who did not cite the source. Hope it helps your important WWW page. Take
care.
}

procedure TForm1.Delay(msecs:integer);
var
   FirstTickCount:longint;
begin
     FirstTickCount:=GetTickCount;
     repeat
           Application.ProcessMessages; {allowing access to other
                                         controls, etc.}
     until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;