Pues es fácil, insertando en tu código una llamada a este procedimiento:
Delphi 1, 2, 3, 4
procedure TForm1.Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
|
Delphi 2, 3, 4
Donde n es milisegundos
|