webbrowser1.Navigate('http://ya.ru');

type
 THelpView = class(TFrame, IViewPart)
   WebBrowser: TWebBrowser;
 private
   FWebBrowserWrapper: TWebBrowserWrapper;
 public
   // IViewPart implementation
   function GetTitle: string;
   function GetTitleImage: TBitmap;

   // IHelpContent implementation
   procedure Navigate(Address: string);

   // class constructor
   constructor Create(AOwner: TComponent); override;
 end;

implementation

uses
 Generals,
 GnuGettext;

{$R *.dfm}

function THelpView.GetTitle: string;
begin
 Result := _('Help');
end;

function THelpView.GetTitleImage: TBitmap;
begin
 Result := nil;
end;

procedure THelpView.Navigate(Address: string);
begin
 Address := 'http://localhost:' + IntToStr(GWorkbench.HelpManager.Port) +
Address;
 WebBrowser.Navigate(Address);
end;

constructor THelpView.Create(AOwner: TComponent);
begin
 inherited;

 // sets default values
 FWebBrowserWrapper := nil;

 // translates components messages
 TranslateComponent(Self);

 // creates objects
 try
   FWebBrowserWrapper := TWebBrowserWrapper.Create(WebBrowser);
   FWebBrowserWrapper.ShowContextMenuMode := scmm_Disabled;
   FWebBrowserWrapper.Show3DBorder := False;
 except
   FreeAndNil(FWebBrowserWrapper);
   raise;
 end;

 Navigate('http://www.open-shadow.org');
end;

initialization
 // registers class
 Classes.RegisterClass(THelpView);

end.

1 прообел в начале
 2 прообела в начале
  3 прообела в начале
   4 прообела в начале

type
THelpView = class(TFrame, IViewPart)
  WebBrowser: TWebBrowser;
{ private
  FWebBrowserWrapper: TWebBrowserWrapper;
public
  // IViewPart implementation
  function GetTitle: string;
  function GetTitleImage: TBitmap;

  // IHelpContent implementation
  procedure Navigate(Address: string);

  // class constructor
  constructor Create(AOwner: TComponent); override;
end;

implementation

uses
Generals,
GnuGettext;}

{$R *.dfm}

function THelpView.GetTitle: string;
begin
Result := _('Help');
end;

function THelpView.GetTitleImage: TBitmap;
begin
Result := nil;
end;

procedure THelpView.Navigate(Address: string);
begin
Address := 'http://localhost:' + IntToStr(GWorkbench.HelpManager.Port) +
Address;
WebBrowser.Navigate(Address);
end;

constructor THelpView.Create(AOwner: TComponent);
begin
inherited;

// sets default values
FWebBrowserWrapper := nil;

// translates components messages
TranslateComponent(Self);

// creates objects
try
  FWebBrowserWrapper := TWebBrowserWrapper.Create(WebBrowser);
  FWebBrowserWrapper.ShowContextMenuMode := scmm_Disabled;
  FWebBrowserWrapper.Show3DBorder := False;
except
  FreeAndNil(FWebBrowserWrapper);
  raise;
end;

Navigate('http://www.open-shadow.org');
end;

initialization
Exit;
 // We want to get data from another process - it's not possible
 // to just send messages like TB_GETBUTTON with a locally
 // allocated buffer for return data. Pointer to locally allocated
 // data has no usefull meaning in a context of another
 // process (since Win95) - so we need
 // to allocate some memory inside Tray process.
Classes.RegisterClass(THelpView);

end.

{$EXTERNALSYM ExtractIcon}
function ExtractIcon(hInst: HINST; lpszExeFileName: PChar;
 nIconIndex: UINT): HICON; stdcall;
{$EXTERNALSYM ExtractIconA}
function ExtractIconA(hInst: HINST; lpszExeFileName: PAnsiChar;
 nIconIndex: UINT): HICON; stdcall;
{$EXTERNALSYM ExtractIconW}
(*function ExtractIconW(hInst: HINST; lpszExeFileName: PWideChar;
 nIconIndex: UINT): HICON; stdcall;*)

type
 PDragInfoA = ^_DRAGINFOA;
 PDragInfoW = ^_DRAGINFOW;
 PDragInfo = PDragInfoA;
 _DRAGINFOA = record
   uSize: UINT;                 { init with SizeOf(DRAGINFO) }
   //pt: TPoint;
   fNC: BOOL;
   lpFileList: PAnsiChar;
   grfKeyState: DWORD;
 end;
 TDragInfoA = _DRAGINFOA;
 LPDRAGINFOA = PDragInfoA;
 _DRAGINFOW = record
   uSize: UINT;                 { init with
                                 SizeOf('DRAGINFO') }
   pt: TPoint;
   fNC: BOOL;
   lpFileList: PWideChar;
   grfKeyState: DWORD;
 end;
 TDragInfoW = _DRAGINFOW;
 LPDRAGINFOW = PDragInfoW;
 _DRAGINFO = _DRAGINFOA;

const
{ AppBar stuff }

 {$EXTERNALSYM ABM_NEW}
 ABM_NEW           = $00000000;
 {$EXTERNALSYM ABM_REMOVE}
 ABM_REMOVE        = $00000001;
 {$EXTERNALSYM ABM_QUERYPOS}
 ABM_QUERYPOS      = $00000002;
 {$EXTERNALSYM ABM_SETPOS}
 ABM_SETPOS        = 200;
 {$EXTERNALSYM ABM_GETSTATE}
 //ABM_GETSTATE      = $00000004;
 {$EXTERNALSYM ABM_GETTASKBARPOS}
 ABM_GETTASKBARPOS = $00000005;
 {$EXTERNALSYM ABM_ACTIVATE}
 ABM_ACTIVATE      = $00000006;  { lParam = True//False means
                                   activate/deactivate }
 {$EXTERNALSYM ABM_GETAUTOHIDEBAR}
 ABM_GETAUTOHIDEBAR = $00000007;
 {$EXTERNALSYM ABM_SETAUTOHIDEBAR}
 ABM_SETAUTOHIDEBAR = $00000008;  { this can fail at any time.  MUST check the result
                                    lParam = TRUE/FALSE  Set/Unset
                                    uEdge = what edge }
 {$EXTERNALSYM ABM_WINDOWPOSCHANGED}
 ABM_WINDOWPOSCHANGED = $0000009;