Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
  wb: TWebBrowser;
 begin
   wb := TWebBrowser.Create(Form1);
   TWinControl(wb).Name := 'MyWebBrowser';
   TWinControl(wb).Parent := Form1;
   wb.Align := alClient;
   // TWinControl(wb).Parent := TabSheet1; ( To put it on a TabSheet ) 
  wb.Navigate('http://www.swissdelphicenter.ch');
 end;