WebBrowser ввод текста

[Krekeror]

Хочу ввести текст в поле "имя" на mail.ru
https://e.mail.ru/signup?from=main
но почему то выдаёт ошибку, подскажите как это сделать

procedure TForm1.Button1Click(Sender: TObject);
var a1: variant;
begin
  a1:=webbrowser1.oleobject.document.getelementbyid('x_6976d31a1f8e569b');
  a1.value:=Edit1.Text;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('https://e.mail.ru/signup?from=main_noc');
end;

<input name="x_6976d31a1f8e569b" value="" type="text" class="inPut" maxlength="40">

[Stilet]

Мдя... Правила писаны не для читателей...

if not VarIsClear(a1) then a1.value:=Edit1.Text else ShowMessage('Такого поля не существует');

[Krekeror]

и правда ошибся, вот name поля "x_2d47a21f52e54989"