Also gut aber ich glaub das das net wirklich viel bringt, hab ja nur das von dem anderen da abgeschrieben.
Code:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
URL: WideString;
begin
URL := ((TWebbrowser(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
Edit1.Text:=
URL;
end;