WebBrowser заполнить поле

var
  DocS : IHTMLElementCollection;
  Element: IHTMLElement;
  i : Integer;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
WebBrowser1.Navigate('https://target.mail.ru/ads/create');
 
DocS:=(webbrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
for i:=0 to DocS.Length-1 do
Element:=DocS.item(i,0)as IHTMLElement;
if Element.className='input help_inp input_title' then
Element.innerText:='text';
 
end;

for i:=0 to DocS.Length-1 do
begin // <---
   Element:=DocS.item(i,0)as IHTMLElement;
   if Element.className='input help_inp input_title' then
      Element.innerText:='text';
end; // <---

Element:=DocS.item(i,0)as IHTMLElement;

unit Unit1;
 
interface
 
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHTML;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Button2: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
var
  Form1: TForm1;
  a1, a2, a3: variant;
  DocS : IHTMLElementCollection;
  Element: IHTMLElement;
  i : Integer;
 
{$R *.dfm}
 
implementation
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a1:=webbrowser1.oleobject.document.getelementbyid('id_Login');
  a1.value:=Edit1.Text;
 
  a2:=webbrowser1.oleobject.document.getelementbyid('id_Password');
  a2.value:=Edit2.Text;
 
for i := 0 to WebBrowser1.OleObject.Document.all.tags('input').length - 1 do
if (WebBrowser1.OleObject.Document.all.tags('input').item(i).value='Âîéòè') then
   WebBrowser1.OleObject.Document.all.tags('input').item(i).click;
 
   WebBrowser1.Navigate('https://target.mail.ru/ads/create/');
   Sleep(1000);
 
   DocS:=(webbrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
   for i:=0 to DocS.Length-1 do
     begin
   Element:=DocS.item(i,0)as IHTMLElement;
   if Element.className='input help_inp input_title' then
      Element.innerText:='text';
      end;
 
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('https://target.mail.ru/login');
end;
 
end.