[Escalion]

Здравствуйте!
Необходима помощь в решении следующего вопроса:
Есть TWebBrowser в котором открывается ссылка. По ссылке открывается форма на которой присутствует список типа ListBox. Необходимо програмно добавить в этот список новые пункты.

Я делаю таким образом:
После загрузки страницы запускается по нажатию кнопки следующий код:

Код:

var
  i:integer;
  DocA: IHTMLElementCollection;
  Element,NewElement: IHTMLElement;
  Options: IHTMLSelectElement;

begin
//Находим все элементы формы
      DocA:=(WebBrowser1.Document as IHTMLDocument2).all;
      for i:=0 to DocA.length - 1 do
      begin
        Element:=DocA.item(i,0) as IHTMLElement;
//Ищем нужный элемент (в данном случае список)
        if Element.id='List' Then
        Begin
          Options:=(Element as IHTMLSelectElement);
//Создаем новый элемент
          NewElement.title:='12345';
          NewElement.id:='6789';
//Добавляем элемент
          Options.add(NewElement,'beforeend');
//после добавления элемента завершаем цикл
          Break;
        End;
      end;
End;

Но происходит ошибка. Я уверен что ошибка происходит где-то в районе создания нового элемента.

[Escalion]

Функция Element.insertAdjacentHTML не подходит. Не знаю почему, но она обрабатывается некорректно