Delay Dalam Delphi?

Mau buat program delay lewat delphi, kok bingung ya..........gimana seh caranya?
=====================================================================================
trik delay tp sedikit sorry

emang delphi tidak menyediakan prosedur khusu untuk delay seperti pada pascal. Tapi jangan berkecil hati ini ada sedikit trik untuk delay dengan memanfaatkan funsi API GeTickCount.dimana fungsi ini mengembalikan jumlah milidetik yang telah dihitung sejak windows dijalankan hehehehheheheheh........


code:

procedure Delay(Interval: Longint);

var

startTime, endTime: LongInt;

begin

{ Ambil waktu sekarang }

startTime:= GetTickCount;

repeat

{ Ijinkan aplikasi memproses pesan lain }

Application.ProcessMessage;



{ Ambil waktu delay }

endTime:= GetTickCount;

until (endTime - startTime) >= Interval;

end;
// by tutorial delphi7
====================================================================================
dilanjutin kapan2 lg ya karena mau maem dhisik yo ( sorry bahasa jawa )ngeleh........
hehehehheheheheh
MERDEKA !!!