Кто знает как засабмить форму через WebBrowser?

[AlexP_77]

Помогите засабмить форму через WebBrowser. Пишу прогу на Delphi которая по событию должна автоматом скачать архив из всем известного файлообменника LetitBit но никак не могу преодолеть 2-ю страницу в загрузке (гам где кнопка "Спасибо, не надо"). Вот ссылка на тестовый файл http://letitbit.net/download/22588.2...ke_me.mp3.html
Все предыдущие и последущие кнопки нажимаю при помощи команды Wind.execScript('$(''#ifree_form'') .submit()','JavaScript'), а вот эту форму засабмить не получается. В Google нашёл массу примеров но они все однотипные и в моём случае не работают. Вот код одного из них:
var ovElements: OleVariant;
i,len: Integer;
name,tp:string;
idButton:integer;
begin
ovElements := WebBrowser1.OleObject.Document.form s.item(0).elements;
len := ovElements.Length;
for i:=0 to (len-1) do
begin
name := ovElements.item(i).Name;
tp := ovElements.item(i).type;
if ( name = 'ok') and ( tp = 'submit') then idButton := i
end;
ovElements.item(idButton).Click;

Если в этот код внести строки которые выводят значения перемененных в Memo становится понятно что len всегда равно 1 и поэтому цикл дальше первой формы не идёт, а т.к. форма которую мне засабмить надо не первая то и "кликнуть" по ней не получается. Подскажите как это правильно реализовать.

И сразу хотел бы задать ещё 1 вопрос. Как программно нажать на кнопку "Сохранить" когда WebBrowser выдаёт диалоговое окно при загрузке файла?

[AlexP_77]

Я тут модифицировал код малость но чёто ошибку выдаёт на строчке for j:=0 to ((WebBrowser1.OleObject.Document.fo rm(i).Length)-1)do. Есть у кого то хоть какие то соображения. Ато я просто просто уже где искать не знаю Вот код
var ovElements: OleVariant;
j,i,len: Integer;
name,tp:string;
idLogin,idPass,idButton:integer;
begin
len:= WebBrowser1.OleObject.Document.form s.Length;
Label1.Caption:=IntToStr(len);
for i:=1 to (len-1) do
for j:=0 to ((WebBrowser1.OleObject.Document.fo rm(i).Length)-1)do
begin
ovElements := WebBrowser1.OleObject.Document.form (i).item(j).elements;
if ( name = 'ok') and ( tp = 'submit') then
ovElements.item(idButton).Click;
end;