[crn]

Приветствую уважаемые программисты.
Есть такой сайт, который грузится в webbrouser.

В нем я спокойно выбираю Категорию по id, в данном случае это Квартиры, не по value=24, а по номеру индекса в списке. В нашем случае это 6.
Вот код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var a, cat1:  variant;
Win, Doc, Sel, Frm, Arr, Elem :Variant;
i:Integer;
begin
    Doc := WebBrowser1.OleObject.document;
    Sel := Doc.getElementById('fld_category_id');
    Sel.selectedIndex := 6;
    Frm := Sel.parentNode;
    while (Frm.tagName <> 'BODY') and (Frm.tagName <> 'FORM') do Frm := Frm.parentNode;
    if Frm.tagName <> 'FORM' then begin
      ShowMessage('Элемент с ID = "' + Sel.id + '" не принадлежит ни одной форме.'
        + ' Отправка данных невозможна.');
      Exit;
    end;
    Frm.submit;
    // что дальше? 
end;

У этой Категории есть, есть дочерние Подкатегории, в случае с Квартирами, это купить, продать, снять и т.д.
Вот эти подкатегории, мне никак не удается выбрать. Пробовал getElementByClassName, getElementByTagName, но дальше не знаю как ее выбрать.
Мало того, дочерняя Подкатегория появляется на форме только после выбора родительской Категории, и чтобы ее активировать, мне приходится делать сабмит формы - Frm.submit, что я думаю не совсем правильно.
В общем вопрос, как мне выбрать дочернюю Подкатегорию?