что нужно сделать, чтобы при нажатии кнопки запускалась процедура

[Alar]

key=#37 и т.д.

[mager]

Ладно всё равно не получилось видно не судьба! Свем спасибо за активность, через пару дней тему закрою, чтобы форум не засорять.
Ещё раз спасибо

[zetrix]

я тоже пробовал - не работает... не понимаю...

[SuperVisor]

Стоять!!!! Не опускайте руки!!!! Только что проверил, работает... Char в KeyPress можно использовать, а не в Down'ах, это я куда-то не туда полез... Самое главное на таймере время поменьше сделай!!!! (50-200).

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_left then Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left:=Image1.Left-2;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_left then Timer1.Enabled:=False;
end;
end.

[X=Vitamin=X]

Для MageR-a
___________________________________ ______

37 или 39 это ascii коды клавиш, и использовать тебе их надо вот так:
if Key=#37 then
begin
.......
end;
Знак # указывает на то что ты обращаешся к коду клавиши которую нажали (а не просто сравниваешь кеу с каким-то числом) ! ! !
Этим можно пользоватся если ты знаеш таблицу ascii кодов, НО гораздо проще использовать VK_LEFT или VK_RIGHT и т.д.

[zetrix]

X=Vitamin=X
Замечу, что #37 и VK_LEFT не одно и тоже, попробуй при keydown и keypress, тогда увидишь разницу.