Программное заполнение в WebBrowser поля <select> - данные вводтся, но неотправлются

[zloy_nick]

Делаю автоматическое заполнение HTML страницы с фреймом в коспоненте TWebBrowser.
В фрейме страницы обычные поля ввода (<input>), кнопка (Type=SubMit) и <select multiple="multiple" >
Все поля ввода заполняются и select тоже, но после нажатия кнопки (Type=SubMit) оказыватся, что в select пусто (хотя select указывает на выбранную строчку).
А вот если указать мышью, то после нажатия кнопки всё нормально данные из select отправляются!?

varHTML_Doc: IHTMLDocument2;
ovElements: OleVariant;
Window: IHTMLWindow2;
frame: Olevariant;

begin//добираюсь до фрейма
HTML_Doc := WebBrowser.Document as IHTMLDocument2;
Window := HTML_Doc.parentWindow as IHTMLWindow2;
name_frame := 'frmVacs';
frame:=Window.frames.item(name_frame).document;

ovElements := Frame.forms.Item(0);	//нужный элемент 
ovElements.Item(3).Value := '4';	//выбираю строчку в select c <option value="4">

=)