[romingood]

Я в этом случае пользуюсь поиском по коду страницы.
Можно искать тег </html>
А можно и текст "Невозможно отобразить страницу"
Не суть важно.
Всё равно будет работать.

Код:

procedure TForm1.SearchAndHighlightText(aText: string);
var
  i: Integer;
  finded:boolean;
begin
  finded:=false; 
  for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
  begin
    if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then
    begin
    finded:=true;
    end;
  end;
end;

а потом просто вызывается процедурка

SearchAndHighlightText('Невозможно отобразить страницу');
и ниже проверяется переменная finded, которую я сделал глобальной.

Реализация, конечно, кривая, но работает
Очень удобно и надежно.