在 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;
這樣，當頁面加載完成后，會彈出一個消息框顯示“網頁加載完成！”。
