var<br>i_hd:IHtmlDocument2;<br>begin<br> for j :=0 to i_hd.all.get_length-1 do<br> begin<br> item:=all.item(j,varempty) as IHTMLElement;<br> ComboBox1.Items.Add(item.Get_tagName); <br> end;<br>end;