[one_v]

Пока не доходит.

Код:

procedure TForm4.WebBrowser2BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
if Returning='.\html\Системная защита приложений MS Office\index.htm'  then
begin
cancel:=True;
WebBrowser1.Navigate(Returning+'.\html\Системная защита приложений MS Office\ системная защита.html');

Так не работает.