Выбор элемента ListBox

[razumsap]

Добрый день. Пытаюсь заполнить веб-форму у котрой есть ListBox. Его значение я могу заполнить, но мне еще надо симитировать его выбор мышкой, чтоб после среагировал ява-скрипт.

var
  Doc: OleVariant;
v,el   : OleVariant;
...
begin
  Doc := WebBrowser1.OleObject.document;
  el := doc.getElementById('fld_category_id');
  el.getElementsByTagName('option').item(4).selected := 'true';
  el.FireEvent('onchange', v);
end;

Код написал, но скрипт не запускается, видать не отрабатывает событие "onchange". Помогите советом, как сделать?