Problema con WebBrowser y OnNewWindow

[jomadi04]

bueno familia, por si a alguien le interesa acabo de dar con la solución, casi de casualidad (como los grandes descubrimientos del hombre jaja) y por si a alguien le puede venir bien es esta:

Código Delphi [-]
procedure Tform1.NuevaVentana(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
  var
carga:TWebBrowser;
Documento : IHtmlDocument2;
elemento : IHtmlElement;
nuevadir:string;
begin
carga:=TWebBrowser(aSender);
Document := carga.Document as IHTMlDocument2;
elemento:=Documento.activeElement;
nuevadir:=elemento.toString;
Cancel:=true;   //para evitar que se abra la nueva ventana, ya sea de mi aplicación o de IE
webbrowser1.Navigate(nuevadir);
end;

creo que se puede dar por cerrado el tema e incluso trasladar la solución a trucos, porque seguro que a más de uno le entra esta duda en algún momento.

Un saludo!