Pengganti Perintah sleep dengan procedure baru

Anda tentunya pernah menggunakan syntax sleep(), untuk menunda suatu proses. Perintah sleep() akan menghentikan proses sesusai dengan waktu yang kita inginkan, akan tetapi sleep mempunyai efek yang kurang bagus, program sperti keliatan hang, nah untuk mengatasinya kita bisa membuat procedure baru. Berikut i ni contohnya:

procedure TForm1.Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

Selamat mencoba.