مرجع توابع دلفی

[دلفــي]

procedure Delay(ms : longint); 



    var     TheTime : LongInt;     begin     TheTime := GetTickCount + ms;     while GetTickCount < TheTime do    Application.ProcessMessages;     end;