He probado a poner lo siguiente:
Código Delphi
[-]
procedure TFrmPrincipalExplorer.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if (URL = 'https://recargas.alphyra.es/recargasWeb/') then
Self.Close;
end;
En URL no tengo muy claro que tengo que poner y he puesto la url de la página por lo cual así la página ya no llega a mostrarse. Al poner la URL en blanco tampoco se cierra la página y el problema se mantiene.
Si conoces alguna solución para el componente TEmbeddedWB también me sirve. Muchas gracias