怎样实现响应热键: Ctrl + KK,or GOLD etc???(100分)

我希望实现响应热键for example: Ctrl + KK,or GOLD etc.
FormKeyDown(TObject *Sender, WORD &Key,TShiftState Shift)
我现在只能实现在FormKeyDown中捕获Ctrl + K,Key捕获'K',Shift捕获'Ctrl',不知其他的键怎么捕获???
谢谢!

自己设个bool变量记录是否按了ctrl+k, 如果捕捉到ctrl+k则置true, 如果再次捕捉到ctrl+k则捕捉到ctrl+kk(您的要求), 任何其他按键都置回false.
var
Hot: boolean;
procecure form1.formkeydown(.....);
begin
if (key = VK_K) and (ssShift in shift) then
if hot then
begin
//处理ctrl+kk
hot := false;
end
else
hot := true
else
hot := false;
end;

Another_eYes
你来就好了,问题已搞定谢谢!
可以透露您的工作性质吗?
code? business? boss of yourself?

多人接受答案了。