Trampa y Popups...

[Xianto]

Perdonnnnnnn !!!

Es que con los años ya no soy tan astuto, la respuesta estaba ante mis ojos y no la vi.

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
  Cancel := True;
end;
end.

El evento NewWindow2, sabe cuando se ejecuta un popup, el problema para el que lo tenga, seria que no funcionarian los links que abran nuevas ventanas... pero a mi me vale !

Saludos !