içinde arma motou ileri geri butonları ana sayfa butonu bulunmaktadır...
Gerekenler;
7 Buton,1 MainMenu,1 WebBrowser, 2 Edit
Kod;

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, Menus;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Edit1: TEdit;
    Button1: TButton;
    MainMenu1: TMainMenu;
    Dosya1: TMenuItem;
    k1: TMenuItem;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit2: TEdit;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure k1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.text);
end;
procedure TForm1.k1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.com.tr/search?hl=tr&q='+Edit2.Text+'&btnG=Google%27da+Ara&meta=');
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
WebBrowser1.GoHome
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
WebBrowser1.Stop
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.Refresh
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.GoForward
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoBack
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.