procedure navig;
begin
{здесь твоя процедура навигации}
Form1.WebBrowser1.Navigate('google.ru');
end;

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
navig;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Navig;
end;

OnDocumentComplete=WebBrowser1DocumentComplete