teclas de funciones algo raro....

[ronimaxh]

Hola amigos del club, estoy haciendo una aplicacion que usa formularios tipo fsMDIForm y fsMDIChild, no me funciona la tecla f2 en este evento(en el formulario hijo número 1 y en otro número 2 si por qué será?:
código delphi:
procedure Tfrminclusion.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F2 then frmprincipal.buscaClick(nil);
end;