[erham]

type
Tweb = class(TForm)
WebBrowser1: TWebBrowser;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;

var
web: Tweb;

implementation

{$R *.dfm}

procedure Tweb.SpeedButton1Click(Sender: TObject);
var
a,b,c,d:OLEVariant;
begin
WebBrowser1.Navigate(Edit1.Text,a,b,c,d);
end;

procedure Tweb.SpeedButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure Tweb.SpeedButton3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure Tweb.SpeedButton4Click(Sender: TObject);
begin
WebBrowser1.GoHome;
end;

procedure Tweb.FormCreate(Sender: TObject);
var
a,b,c,d:OLEVariant;

begin
WebBrowser1.Navigate(Edit1.Text,a,b,c,d);

end;

procedure Tweb.WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
begin
Edit2.Text:=Text;
end;

procedure Tweb.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Edit1.Text:=URL;
ShowMessage('gstedigin URL Yuklendi.');
end;

end.