在 Delphi 中使用 TWebBrowser 组件可以实现浏览器功能。下面是一个简单的示例：
在 Delphi 中创建一个新的窗体。
在窗体上放置一个 TWebBrowser 组件。
添加一个按钮和一个编辑框组件，用于输入网址和导航到指定网址。
在按钮的 OnClick 事件中添加以下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;
这样，当点击按钮时，WebBrowser 组件会根据编辑框中的网址进行导航。
还可以在 TWebBrowser 组件上添加其他功能，比如在页面加载完成后执行一些操作。比如，在 TWebBrowser 的 OnDocumentComplete 事件中添加以下代码：
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
// 页面加载完成后执行一些操作
ShowMessage('网页加载完成！');
end;
这样，当页面加载完成后，会弹出一个消息框显示“网页加载完成！”。
