procedure keypressdo(Sender: TObject; var Key: Char);
......
procedure TForm1.keypressdo(Sender: TObject; var Key: Char);
begin
showmessage('keypress do something');
end;
然后赋值：
keypressint:=keypressdo;
最后运行它！
if assigned(keypressint) then keypressint(nil,key);
要记得运行前声明var key:char;
这样，就可以运行这个事件了。
