怎樣讓程序延時

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