Проблема при назначении определённой клавиши на событие OnKeyPress

[Terrance!]

Мне нужно, чтобы при нажатии клавиши d или D изображение двигалось.

procedure TForm1.B1press(Sender: TObject; var Key: Char);
begin
if (key='D') or (key = 'd') then Button1.Click;
end;

procedure TForm1.Button1click(Sender: TObject);
begin
image1.left:=image1.left+1;

end;

end.

значение keyPreview установил в true,
но при нажатии ничего не происходит!
В чём моя ошибка?

[MaxNik2009]

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);  // назнач процедуру для формы
begin
  if (Key = 'D') or (Key = 'd')  // это на английской раскладке
      or (Key = 'В') or (Key = 'в') then  // добавим и для русской раскладки
    Image1.Left:= Image1.Left + 2;
end;

[Terrance!]

огромный спасибон!!!