procedure TfmMain.Label1Click(Sender: TObject);
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  Res: boolean;
begin

  FillChar(StartInfo, SizeOf(StartInfo), # 0 );

  with StartInfo do begin
    cb := SizeOf(StartUpInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_NORMAL;
  end;

  Res := CreateProcess( nil, 'index.htm', nil, nil, false, NORMAL_PRIORITY_CLASS, nil, '', StartInfo, ProcInfo );

  if not Res then
    MessageDlg( SysErrorMessage(GetLastError), mtError, [mbOK],  0  );

end;