Aktivering af hjælp ved tryk på F1

Hejsa,

Er der nogen af jer der ved hvordan man kalder sin .hlp fil ved hjælp af F1? Jeg kan sagtens kalde den ved et klik på en knap hvis jeg har følgende kode:


procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HelpFile := 'help.hlp';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HelpCommand(HELP_CONTENTS,0);
end;


Men det kunne jo være rart at kunne kalde hjælp via F1.

Kom med nogle bud! :-)