Движение картинки по форме при нажатии клавиши (любой)

[mihaillo]

Доброго времени суток всем! Недавно у меня появилась такая идея, даже скорее мечта, создать игру типо марио, но очень простенькую без ботов, в которой нужно ловить падающие предметы. Но вот незадача. Попал в ловушку. Обгуглил всё, но ничего ненашёл, из того, что мне нужно. Находил правда подобное, но там при нажатии мышкой на картинку, а мне нужно при нажатии клавиши.
Ближе к делу. В общем, прошу вас помочь с кодом. Я составил простенький код по перемещению картинки по координатам при нажатии стрелочки (-->). Вот собственно и сам код :

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Case Key of
VK_RIGHT : image1.left:=+5;
end;
end;

Но дело в том, что при нажатии данной клавиши (-->) картинка перемещается не так, как задумано, на каждые 5 пикселей, а именно на 5-ый пиксель на форме.
А мне нужно, чтобы при зажатии стрелочки вправо, картинка перемещалась вправо по координатам до стенки.
Очень прошу помоч с кодом Я подозреваю, что без компонента Timer там не обойтись
И если не сложно, еще нужен код чтоб при перемещении не только координаты менялись, но и картинка (чтобы происходила анимация)
Заранее благодарен

[dmitriegorovih]

procedure TForm1.FormCreate(Sender: TObject);
begin
   form1.DoubleBuffered:=true;
 KeyPreview:=true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Case Key of
 VK_RIGHT : begin image1.left:=image1.left+5;
 if (form1.ClientWidth)<=(image1.Left+image1.Width) then begin
 image1.Left:=form1.ClientWidth-image1.Width;
 end;
 end;
 VK_left : begin image1.left:=image1.left-5;
  if (image1.Left)<=0 then begin
 image1.Left:=0;
 end;
 end;
 VK_UP : begin image1.Top:=image1.Top-5;
  if (image1.Top)<=0 then begin
 image1.Top:=0;
 end;
 end;
 VK_down : begin image1.Top:=image1.Top+5;
  if (form1.ClientHeight)<=(image1.Top+image1.Height) then begin
 image1.Top:=form1.ClientHeight-image1.Height;
 end;
 end;
 end;
end;

[mihaillo]

Спасибо большое! Всё работает!

[bmw7501991]

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_Left:if Image2.Left>=5
then Image2.Left:=Image2.Left-5;
VK_Right:if Image2.Left+Image2.Width+5<=ClientW idth
then Image2.Left:=Image2.Left+5;
VK_Up:if Image2.Top>=5
then Image2.Top:=Image2.Top-5;
VK_Down:if Image2.Top+Image2.Height+5<=ClientH eight
then Image2.Top:=Image2.Top+5;
end;
end;