معمولاً برای ایجاد تاخیر در اجرای دستورات از Timer استفاده می کنند ولی توسط کد زیر می توانید بدونه استفاده از Timer در برنامه تاخیر ایجاد کنید. گاهی از دستور sleep هم استفاده می شود که دستور جالبی نیست و برای کارهای خاص استفاده می شود.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button3: TButton;
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure Delay(ms : longint);
var
TheTime : LongInt;
begin
TheTime := GetTickCount + ms;

while GetTickCount < TheTime do
Application.ProcessMessages;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('Start Test');
Delay(20000);
ShowMessage('End Test');
end;

end.