unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    oWB: TWebBrowser;
  public
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.FormCreate(Sender: TObject);
begin
  oWB := TWebBrowser.Create(self); { «Ø¥ßª«¥ó }
  try
    TControl(oWB).Parent := form1; { ³]©wÄÝ©óForm1 }
   oWB.SetBounds(10, 10, 300, 300); { ³]©w¤j¤p }
  except
   oWb.Free; { µLªk«Ø¥ß¦¨¥\®É }
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  oWB.Navigate('c:\test.html');
end;    end.