[lmikle]

Это не совсем присвоить, это, скорее, вызвать.
А по сути - так же, только там параметры другие, соответсвенно, придется туда подсунуть какие-то фейковые значения:

Код:

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