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; 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!