На форму выкладываем компонент WebBrowser из вкладки Internet, 5 кнопок , и одно поле Edit. Для кнопок изменяем свойство Caption на "Назад", "Вперед", "Стоп", "Домой" и "Перейти". Размещаем поудобнее .
Далее добавляем код в обработчик OnClick для кнопки "Перейти":
procedure TForm1.Button1Click;
begin
WebBrowser1.Navigate(Edit1.Text); #В этом поле мы будем указывать адресс, куда нужно перейти (url). end;
Для кнопки "Назад" обработчик OnClick:
procedure TForm1.Button2Click;
begin
WebBrowser1.GoBack; end;
Для кнопки "Вперед":
procedure TForm1.Button3Click;
begin
WebBrowser1.GoForward;
end;
Для кнопки "Стоп":
procedure TForm1.Button4Click;
begin
WebBrowser1.Stop;
end;
Для кнопки "Домой":
procedure TForm1.Button5Click;
begin
WebBrowser1.GoHome;
end;
Немножко подбавить оформления и нескольких штучек (типа закладок, истории и т.п.) - и полноценый браузер готов!
| 
