Копирование текста из определенного поля в TWEBBROWSER ?

[4pe6km]

Доброе утро всем,

Помогите решить задачу. Нужно загрузить в TWEBBROWSER страницу, найти в ней определенное поле, скопировать текст находящийся в этом поле и результат занести в ListBox. Подскажите PLS как реализовать ... Вариант с загрузкой исходника в TMemo, а потом парсинг не предлагать, поскольку он мне не подходит для моего случая ... Мне нужно именно найти определенную форму и от туда взять значение ...

[Пепел Феникса]

function GetFieldValue(WebBrowser:TWebBrowser;FieldName:string):String;
var
   i,j:Integer;
   FormItem:Variant;
begin
 Result:='';
 if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
   Exit;
  end;
 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
      if FormItem.Item(j).Name = FieldName
       then Result:=FormItem.Item(j).Value;
     except
      Exit;
     end;
    end;
  end;
end;

вроде так

[4pe6km]

Сообщение от Пепел Феникса

function GetFieldValue(WebBrowser:TWebBrowser;FieldName:string):String;
var
   i,j:Integer;
   FormItem:Variant;
begin
 Result:='';
 if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
   Exit;
  end;
 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
      if FormItem.Item(j).Name = FieldName
       then Result:=FormItem.Item(j).Value;
     except
      Exit;
     end;
    end;
  end;
end;

вроде так

Спасибо ! Это я и искал.