Delay. Задержка в Delphi

В паскале реализована замечательная функция, которой почему- то нет в стандартных функциях – Задержка. значение которой передается в милисекундах. в общем  нужно это исправлять:

procedure Delay(dwMilliseconds: Longint);

  var iStart, iStop: DWORD; 

    begin 

      iStart := GetTickCount;
      repeat iStop := GetTickCount;
      Application.ProcessMessages;
    until (iStop - iStart) >= dwMilliseconds;
end;


Вот и всё. добавляйте. пользуйтесь.