Заполнение тега типа file на TWebBrowser

[Alex_C]

Не могу заполнить поле типа file. В инете есть куча описаний для тегов INPUT - заполняются без проблем, а вот типа file - не получается имя файла вставить. Делал так:

Сама ф-ция
function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.t ags('FORM').Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms .Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms .Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;

- взята из FAQ

Использовал:

FilForm( WebBrowser1, 'upload', 'C:\Tem.txt' );
Все проходит, поле находится, но на него ничего не выдодится.