Аналог delay в Delphi

В Паскале есть функция Delay, которая задерживает выполнение программы на заданное время.
В Дельфи ее можно заменить следующим кодом:

procedure delay(msec:cardinal);
var t:cardinal;
begin
t:=GetTickCount;
while gettickcount<t+msec do;
end;