introducir un .hlp en una aplicacion delphi

[skunky]

He puesto esto en la jerarquia para ke me lo haga en todos los formularios, pero no va, en canvio si lo pongo en boton si, hay alguna manera para ke me lo haga al apretar f1???????????

procedure TfrmJerarGestio.FormKeyPress(Sender: TObject; var Key: Char);
begin
if(key='key_f1') then begin
Application.HelpCommand(HELP_FINDER, 0);
end;