Поиск тегов через TWebBrouser (Delphi 7)

[Sashka009]

Всем привет! Ищу необходимы теги следующим образом:

procedure TForm1.btn4Click(Sender: TObject);
var HtmlDocument, HtmlCollection: Variant;
    i: integer;
begin
  HtmlDocument:=WebBrowser1.Document as IHtmlDocument2;
  HtmlCollection:=HtmlDocument.All;
  for i:=0 to (HtmlCollection.Length - 1) do
  begin
    if ((UpperCase(HtmlCollection.item(i).tagName)='ИМЯ_ТЕГА') and
      (UpperCase(HtmlCollection.item(i).ClassName)='ИМЯ_КЛАССА'))
    then
      begin
         HtmlCollection.item(i).Click; 
         Break;
      end;
  end;
end;

В принципе - работает, однако, есть определенный тег, на котором он не работает, есть предположения почему и как можно это преодолеть?
Всем заранее спасибо за помощь.