¿Detectar HTTP 404 (página no encontrada) en un TWebBrowser?

[Black_Ocean]

Hola amigos,

Nuevamente, me veo en un problema =) Y eso es lo entretenido de este mundo de la programación, se soluciona uno pero llega otro :=)

Bueno... el problema de fondo es que no logro detectar en el TWebBrowser cuando la página especificada en el método Navigate no existe (error 404). Cuando pruebo las propiedades LocationURL y LocationName sólo muestra la URL anterior especificada en Navigate, no la URL o el archivo donde es redireccionado el navegador cuando se genera el HTTP 404. He probado todos los Eventos con estas propiedades y no logro obtener lo que necesito. Como el TWebBrowser está basado completamente en Internet Explorer, supongo que debe existir un método para detectar esto desde Delphi.

Estuve investigando en Google acerca de esto y sólo tengo dos posibles pistas, que son la función QueryStatusWB y la variante OleObject del TWebBrowser, cuya ayuda en Delphi dice lo siquiente (QueryStatusWB):

Returns information about what commands the Web browser supports.

Delphi syntax:

function  QueryStatusWB(cmdID: OLECMDID): OLECMDF;

Description

Use QueryStatusWB to determine what commands can be executed using the ExecWB method. QueryStatusWB uses the QueryStatus method of the IOleCommandTarget interface to obtain information about the status of commands. For more information, see the Microsoft documentation of IOleCommandTarget.

cmdID specifies the command about which you want information.

QueryStatusWB returns a value made by adding together flags that indicate the status of the command.

Pero no logro entender como hacer algo con esta función, si es que realmente sirve para lo que necesito.

¿Alguien me puede echar una manito =)?

De antemano, muchas gracias y saludos.