webbrowser控件来实现自动填表问题

<ul id=CategoryLevel>
  <li>test1 </li>
  <li>test2 </li>
  <li>test3 </li>
</ul> 像这种网页控件利用一个按钮怎么让他自动选择第二行;现在只能找到这个元素却不知道怎么让他选择第几行!
比如按钮控件,和文本控件就比较好控制; procedure TForm1.Button11Click(Sender: TObject);
var hdoc:ihtmldocument2;
list:olevariant;
begin
  hdoc:=web1.document as ihtmldocument2;
  list:=hdoc.all.item('CategoryLevel',0);
end;