[XENON]

Добрый день пользователи форума. Подскажите пожалуйста, как можно присвоить в процедуре событие OnMouseDown компонента Image на клавишу клавиатуры.
С событием OnClick не трудно:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
  VK_NUMPAD1:Image2.OnClick(Sender);
  end;
end;

Но OnClick для моей программы не подходит, нужно именно OnMouseDown. Как это можно сделать?