Выбор пункта в подобии combobox находящемся на вебстранице. TWebBrowser

[Alex Cones]

Открыта страница в WebBrowser. На странице есть... Мммм... подобие Combobox, не знаю, как оно в вебе называется.
Как в нем выбрать пункт?

Исходник того места страницы:

...<td class="manTd2" id="ldM57">
<table class="x-unselectable u-combo" align="left" border="0" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td class="u-comboeditcell" onclick="_uMenu.show('uCatsMenu7');">
<input id="catSelector9" class="x-selectable u-comboedit u-comboeditimg" style="width: 270px; padding-left: 3px ! important; overflow: hidden ! important;" hidefocus="hidefocus" readonly="readonly" autocomplete="off" value="- Выбрать категорию -" type="button">
</td>
<td class="u-combobutcell"><div class="u-combobut" onclick="_uMenu.show('uCatsMenu7');">
</div>
</td>
</tr>
<tr>
<td>
<div id="uCatsMenu7" style="position: absolute; z-index: 50; display: none; width: 289px;">
<div class="u-combolist" id="uCatsMenu9" style="height: 200px; overflow: auto; padding: 2px;">
<div style="padding: 1px;"><b>Windows</b></div>
<div>&nbsp; <input style="padding: 0pt; margin: 0pt; height: 16px; width: 16px; vertical-align: middle;" name="ocat" id="cus3" value="3" onclick="insertselcat();setTimeout('_uMenu.hide(\'uCatsMenu7\')',300);" type="radio"> 
<label style="vertical-align: middle;" for="cus3">Архиваторы</label>
</div>
<div>&nbsp; <input style="padding: 0pt; margin: 0pt; height: 16px; width: 16px; vertical-align: middle;" name="ocat" id="cus9" value="9" onclick="insertselcat();setTimeout('_uMenu.hide(\'uCatsMenu7\')',300);" type="radio"> 
<label style="vertical-align: middle;" for="cus9">Безопасность</label>
</div>
<div>&nbsp; <input style="padding: 0pt; margin: 0pt; height: 16px; width: 16px; vertical-align: middle;" name="ocat" id="cus4" value="4" onclick="insertselcat();setTimeout('_uMenu.hide(\'uCatsMenu7\')',300);" type="radio"> 
<label style="vertical-align: middle;" for="cus4">Графические редакторы</label>
</div>
<div>&nbsp; <input style=...

[bitSoft]

http://www.webdelphi.ru/2009/08/vybo...select-delphi/
http://www.webdelphi.ru/2009/08/izme...-v-webbrowser/
ya shias zdelaiu primer

[Alex Cones]

Сделал как говорилось в статье, но

DocS:=(B.Document as IHTMLDocument2).all.tags('select') as IHTMLElementCollection;

все время возвращает nil для DocS, и цикл не идет дальше.