Der Code funktioniert schon, nur sind dort ein paar kleine Fehler drin, die du als Anfängerin vielleicht noch nicht so beheben kannst.
Aber wenn du eh alles blocken möchtest dann klicke beim Webbrowser unter Events auf OnNewWindow2 und schreibe dann zwischen begin und end; -> Cancel:=True; ... das müsste dan so ausschauen.
Delphi-Quellcode:
procedure TForm1.WebBrowserNewWindow2(ASender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=True;
end;
.. dann wird aber wirklich alles geblockt.