>>83
すいません。ほんとにありがとうございました。
私は

procedure TForm1.Button1Click(Sender: TObject);
var c : Char;
begin
c := '1';
　 form1.KeyPress(c);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key =('1') then
　　 showmessage:=('1が押されました')
end;

一応これでやりたいことは出来ました。
82さんのは私の知識を遥かに超えていて良く分らない・・