谁能帮我改一下这个很短的程序，我要求能够判断两个全局热键。

以下就是了，但是这样的话只能截获Ctrl+X，如果我还想判断Ctrl+C是否按下该如何处理？type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);protected
procedure myshortcut(var message: TMessage); message WM_HOTKEY;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;var
Form1: TForm1;
id:Integer;implementation{$R *.DFM}procedure TForm1.myshortcut(var message: TMessage);
begin
ShowMessage('你好，Crtl + X 被按下');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom('hotkey');
RegisterHotKey(handle,id,mod_control,88);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,id); //别忘了在退出时取消定义
end;