怎样让下面的过程可以响应键盘输入和其它操作？ ( 积分: 50 )

各位朋友，想请教一下，下面的过程是窗体的一部分过程，请问怎样改，才可以让窗体响应键盘消息而不单单是鼠标消息，即窗体可以响应键盘输入的东西，请各位朋友赐教，谢谢！！

其中const
WM_TrayIcon = WM_USER + 1234;

procedure TFrmMain.AddIconToTray; //服务部分
begin
ZeroMemory(@IconData, SizeOf(TNotifyIconData));
IconData.cbSize := SizeOf(TNotifyIconData);
IconData.Wnd := Handle;
IconData.uID := 1;
IconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
IconData.uCallbackMessage := WM_TrayIcon;
IconData.hIcon := Application.Icon.Handle;
IconData.szTip := 'Delphi服务演示程序';
Shell_NotifyIcon(NIM_ADD, @IconData);
end;


procedure TFrmMain.TrayIconMessage(var Msg: TMessage); //响应鼠标动作
begin
if (Msg.LParam = WM_LBUTTONDOWN) then Show();

end;

procedure TFrmMain.SysButtonMsg(var Msg: TMessage); //服务部分
begin
if (Msg.wParam = SC_CLOSE) or
(Msg.wParam = SC_MINIMIZE) then Hide
else inherited; // 执行默认动作
end;

热键或注册键盘钩子!

二楼的朋友，我不是这个意思，然后我设置了一个Timer，每秒都执行一次AddIconToTray，所以，即使我的窗体上有Edit之类的东西，但输入却都是无效的，即无法输入，二楼的朋友，能详细一点吗，请赐教，谢谢！！！

把.AddIconToTray写在县城中执行啊！