about windows sdk (50分)

當Form上沒有其它控件時，我用這個方法
procedure TForm1.wmkeydown(var msg: twmkeydown);
begin
case msg.CharCode of
VK_F1 : SHOWMESSAGE('HEHEHEHE');
VK_F2 : SHOWMESSAGE('DDDDDDD');
END;
end;
==============================================
當Form上有其它控件時,用同樣的方法,但無效
===============================================
當Form上有其它控件時，按F1，和 F2 實現我的要求．
procedure TForm6.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_f1 then
SHOWMESSAGE('HEHEHEHE');
if key=vk_f2 then
SHOWMESSAGE('DDDDDDD');
end;
按F1，和 F2 ,但無效,問題在哪？

form1.keypreview:=true

這樣還是不行呀,

连接了事件没有？？