How to create browser in DELPHI

1 TWebBrowser (name it browser and set it to alClient)
1 TToolBar (name it to Bar)
5 TButtons
1 TEditBox (name it box and set it alTop)


Now lets get to the coding. Here are the buttons:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  browser.Stop; //This will stop the browser
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  browser.Update; //This will Update the browser
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  browser.GoForward; //This will go Forward
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  browser.GoBack; //This will GoBack in the browser
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  browser.GoHome; //This will go Home
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  browser.Navigate(box.Text); //this will go to the website that is written in the editbox!
end;