Поиск формы..

[Teen4jump]

Подскажите почему неработает вот такая процедура:
---------------------------
procedure SearchForm;
var html_tag:OleVariant;
i:integer;
a:integer;
begin
html_tag:=Form1.WebBrowser1.oleObje ct.Document.forms.item(0).elements;
for i:=0 to (html_tag.length -1) do
begin
for a := 0 to Form1.Richedit2.Lines.Count do
if (html_tag.item(i).name =Form1.RichEdit2.Lines.Strings[a]) then
begin
html_tag.item(i).value:='Форма найдена ';
Form1.RichEdit1.Lines.Add('Форма найдена '+Form1.RichEdit2.Lines.Strings[a])
end;
end;
end;
-------------------------------
вот с этим сайтом: hxxp_://forum.johnnymicrowave.com/guestbook.html