procedure Delay(mSec: Integer);
var StartCount: longint;
begin
StartCount:=GetTickCount;{ Ambil waktu sekarang }
repeat
Application.ProcessMessages;{ Ijinkan aplikasi memproses pesan lain }
until (GetTickCount-StartCount) >= mSec;{ Ambil waktu delay }
end;

procedure TForm1.(..........)(Sender: TObject);
begin
{persiapkan sesuatu di sini}
Delay(5000);
{lakukan sesuatu di sini}
end;







