Delay

//Inicie um novo projeto e acrescente as seguintes linhas (marcadas com *)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Delay(msecs:integer); {*}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Delay(msecs:integer); {*...}
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages; {para acessar outros controles, etc.}
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end; {...*}
{Inclua um Button e um Label em seu Form e no Evento OnClick do Button escreva o codigo abaixo}
procedure TForm1.Button1Click(Sender: TObject);
begin
Delay(1000); {*...}
Label1.Caption := 'demorei 1000 ms';
Delay(2000);
Label1.Caption := 'demorei 2000 ms';
Delay(3000);
Label1.Caption := 'demorei 3000 ms';
Delay(4000);
Label1.Caption := 'demorei 4000 ms'; {...*}
end;
end.