Нажать кнопку

[Dron_kss]

Здравствуйте уважаемые, вот встретился с проблемой надо нажать на кнопку «Вход» вот здесь http://dolce-files.ru/, но у меня не выходит, что можете подсказать.
ЗЫ: в программировании еще слаб.
Заранее огромное спасибо!!

procedure TForm1.Button2Click(Sender: TObject);
var
i, j: Integer;
FormItem: Variant;
begin
if WebBrowser1.OleObject.Document.all. tags('FORM').Length = 0 then
begin
Exit;
end;
for I := 0 to WebBrowser1.OleObject.Document.form s.Length - 1 do
begin
FormItem := WebBrowser1.OleObject.Document.form s.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
if FormItem.Item(j).name = 'login' then
FormItem.Item(j).click;
except
Exit;
end;
end;
end;
end;

[postal2]

конечно, но сначала загляни сюда
http://www.programmersforum.ru/showthread.php?t=38191