[Decoding]

Код:

uses
  ..., ShellAPI;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShellExecute( Handle, PChar( 'open' ), PChar( 'имя_файла.htm' ), '', '', SW_SHOWNORMAL );
end;