Cara penggunaan Delay Di Delphi

Delay adalah sebuah fungsi untuk memberikan delay atau jeda waktu yang di tentukan, biasa nya delay ini di gunakan untuk memanipulasi proses loading saat login. Jadi, seakan akan proses login tersebut membutuhkan waktu proses. Langsung saja ke script nya :

procedure Tlogin.Delay(t: Integer);
var mulai, selesai : longint;
begin
mulai:=GetTickCount;
repeat
Application.ProcessMessages;
Selesai:=GetTickCount;
Until (selesai-mulai) >=t;
end;