[Decoding]

Примерно так

Код:

uses
  ..., ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
   KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_F1 then
      ShellExecute( Handle, PChar( 'open' ), PChar( 'имя_файла.htm' ), '', '', SW_SHOWNORMAL );
end;