HTML Page Table parsing

procedureTform27.button1click (sender:tobject);varDoc2:ihtmldocument2;  Doc3:ihtmldocument3;  Itablecollection, emtcollection:ihtmlelementcollection;  itable:ihtmltable;  Emt:ihtmlelement;  Tabrow:ihtmltablerow;  Tabsec:ihtmltablesection;  I, J, K:integer; Sid, S1, S2, S3, S4, S5, Stext:string;beginlistbox1.clear; WebBrowser1.Navigate ('http://zx.caipiao.163.com/trend/11xuan5/?beginPeriod=14092901&endPeriod=14100875&selectDate=4');  whileWebbrowser1.busy Doapplication.processmessages; DOC2:= self. Webbrowser1.document asIHTMLDocument2; DOC3:= Webbrowser1.document asIHTMLDocument3; Itablecollection:= Doc2.all.tags ('Table') asIHTMLElementCollection;  forI: =0  toItablecollection.length-1  Do  beginitable:= Itablecollection.item (I,0) asihtmltable; EMT:= Itable asIHTMLElement; ifEmt.id ='chartstable'  Then    beginEMT:= Itable.tBodies.item (1,0) asIHTMLElement; //tbody cpdata tabsec:= EMT asihtmltablesection;      Tabsec.rows.Length;  forJ: =0  toTabsec.rows.Length-1  Do      beginTabrow:= Tabsec.rows.item (J,0) asIHTMLTableRow; ifTabrow.cells.Length <Ten  ThenContinue; Sid:= (Tabrow.cells.item (0,0) asIHTMLElement). InnerText; //14100718S1:= (Tabrow.cells.item (2,0) asIHTMLElement). InnerText; // onS2:= (Tabrow.cells.item (3,0) asIHTMLElement). InnerText; // GenevaS3:= (Tabrow.cells.item (4,0) asIHTMLElement). InnerText; //GenevaS4:= (Tabrow.cells.item (5,0) asIHTMLElement). InnerText; //GenevaS5:= (Tabrow.cells.item (6,0) asIHTMLElement). InnerText; // tostext:= Format ('%s %s%s%s%s%s', [Sid, S1, S2, S3, S4, S5]);      LISTBOX1.ITEMS.ADD (stext); End; End; End;End;

HTML Page Table parsing