Навигация в TWebBrowser по линкам

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Url, Ref: string;
  IEApp: OLEVariant;
begin
  try
    IEApp := CreateOLEObject('InternetExplorer.Application');
  except
    Exit;
  end;
  IEApp.Visible := True;
  IEApp.Top := 0;
  IEApp.Left := 0;
  IEApp.Width := Screen.Width;
  IEApp.Height := Screen.Height;
  Flags := '1';
  TargetFrameName := '';
  PostData := '';
  Url := 'http://www.dach.de/weiterempfehlen.php';
  Ref := 'http://www.dach.de/';
  // u cannot navigate to the url above without this referer
  Headers := 'Referer: ' + Ref + #10 + #13;
  IEApp.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php