делфи ООП

[phasha]

как сделать планку которая будет двигаться при нажатии на кнопку?
допустим если нажать left то она пойдет влево и наоборот
ума просто не приложу на самом деле((

[Soeth]

Как пример.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_left then begin
Image1.Left:=Image1.Left-10;
end;
end;

[phasha]

и таких поидее нужно два для двустороннего движения да?

[Soeth]

Можно просто в эту добавить

if key = vk_right then begin
Image1.Left:=Image1.Left+10;
end;