求组怎么用快捷键实现CHECKBOX

求组如何用快捷键实现CHECKBOX
想通过快捷键比如F1实现   ，按F1，CHECKBOX就会打勾执行，再按一下就会取消。各位大大有相关的代码给我一个么？小弟这里谢谢了。

[解决办法]
RegisterHotKey(self.Handle,HotKey_F06_ID,0,vk_f3);


PROCEDURE hot_key(var msg:twmhotkey);Message wm_hotkey;

PROCEDURE Tfmain.hot_key(var msg:twmhotkey);
begin
if msg.hotkey=HotKey_F06_ID then
checkbox1.checked:=true;
end;