如何在Delphi中设置快捷键？？？(50分)

我想请问一下各位高高手，如何在delphi5中设置快捷键？？？？？最好有例子

若你用菜单,最简单不过,其TmenuItem中有ShortCut属性,你看了就知道如何设置.
若你没有菜单,那么你用TActionList,新建一个TAction,再在其ShortCut属性改为你要的快
捷键,再在其执行代码中加入你要做的事.
例:
procedure TfrmPartPictureShow.actFullScreenExecute(Sender: TObject);
begin
with Self do
begin
if WindowState=wsMaximized then
WindowState:=wsNormal
else
WindowState:=wsMaximized;
end;
end;

在菜单, 设置菜单的ShortCut属性
在窗体或控件中, 用Keydown事件
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
//执行你的功能
end;
end;
http://211.101.4.25/delphibbs/modifyl.asp?lid=100572

谢谢两位：
我想再问一下，如果我想在form上的一个Edit框中，动态输入一种快捷键方式，然后将其
运用到整个工程中，该如何操作呢？？？？？

多人接受答案了。