Как убрать задержку после нажатия на клавишу

[liquidon]

Всех приветствую.
Использую в программе "TForm1.FormKeyDown" для перемещения изображения по форме, но после нажатия на кнопку (не отпуская ее), изображение двигается на 1 пиксель, потом небольшая задержка, и уже дальше перемещается нормально, с постоянной скоростью.
Отключить только у себя эту задержку не составит труда, но как сделать так, чтобы задержки не было на любом пк, с которого запускается программа?

Заранее благодарен.

[Пепел Феникса]

а может лучше переработать приложение что оно на систему не надеялось?

[liquidon]

Других способов перемещать объекты по форме с помощью клавиш на клавиатуре я, увы, не знаю. Мал еще Может посоветуете что-нибудь?

[Аватар]

События объекта OnMouseUp, OnMouseDown, OnMouseMove

[liquidon]

События объекта OnMouseUp, OnMouseDown, OnMouseMove

Спасибо за предложение, но мышка в моем случае не подходит. Может быть через WinApi как-нибудь удастся отключить задержку курсора когда программа запущена, а при закрытии вернуть в начальное положение? Я с WinApi еще ни разу не работал, это всего лишь предположения.
________________upd________________ __

Вот нашел обсуждение похожей проблемы, но там С++ (если не ошибаюсь)
Решили эту проблему следующим образом:

bool gKeys[256];

//...

case WM_KEYDOWN:
gKeys[(BYTE)wParam] = true;
return 0;
case WM_KEYUP:
gKeys[(BYTE)wParam] = false;
return 0;

На Delphi подобное кто-нибудь сможет помочь организовать?
Заранее благодарен.

[Человек_Борща]

Кнопки для перемещения изображения для формы? Что за извращение над юзером?

используйте Drag'n'Drop.... у Timage есть все события. Примеров уйма.. не с изображения но смысл будет ясен.

[liquidon]

Кнопки для перемещения изображения для формы? Что за извращение над юзером?

Это небольшая игра. Поэтому нужны только кнопки на клавиатуре. Картинка - это игрок, перемещения которого нужно сделать ровными.

[x128]

После KeyDown перемещай картинку (например в таймере), по KeyUp прекращай, при повторном KeyDown просто игнорируй пока работает обработка перемещения.

procedure KeyDown...
if Timer.Enabled then exit else 
begin
  ...
  Timer.Enatled:=true;
end;
.....
procedure KeyUp...
Timer.Enatled:=false;

Можно придумать много вариантов, смысл один, используй флаг признака нажата/отпущена кнопка и не привязывайся к клавиатурным событиям напрямую.