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

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

Коды кнопок клавиатуры

Kлaвишa Oбoзнaчeниe 10-ный кoд
16-ный кoд

Таблица кодов клавиатуры. т.е. какая кнопка под каким номером идет (для делфи): 

Определение глобальных координат курсора

procedure TForm1.Timer1Timer(Sender: TObject);
var
  pos: TPoint;
begin
  GetCursorPos(pos);
  Label1.Caption:=IntToStr(pos.X);
  Label2.Caption:=IntToStr(pos.Y);
  if getasynckeystate($24)<>0 then
  Timer1.Enabled:=False;
end;