[borockov]

В общем поступил немного другим образом, может это немного более извращенный вариант, но все же) Спасибо за помощь, все таки воспользуюсь твоим вариантом, он компактнее))

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Webbrowser1.Document<>nil then
    begin
      if Pos('Выход',WebBrowser3.oleobject.document.body.innerhtml) <> 0 then
      ShowMessage('1')
        else ShowMessage('0');

    end;
    end;
end.