如何获取一个网页上的Table的数据？ (100分)

我用了TWebBrowser打开了一个网页，然后想读取这个网页上的一个Table中的数据
到数据库中去。目前我能找到Table，但是下一步怎样用行和列号来取具体的数据呢？
请教了。

function GetWebBrowserDocumentInnerText(Web:TWebBrowser;Const FramIndex,TableIndex,Row,Col:Integer;Const TagName:String):String;
Var
Count,Index,Len :Integer;
Tmp:String;
begin
Result :='';
Index:=0;
if FramIndex = -1 then
Begin
Len:= web.oleobject.document.All.Length;
for Count := 0 to Len -1 do
Begin
tmp :=web.oleobject.document.All.Item(Count).TagName;
if (tmp = TagName) then
begin
Index:=Index+1;
if (TableIndex =Index) then
Begin
Result :=web.oleobject.document.All.Item(Count).InnerText; //这里把表的所有数据取出了，这样做不是很好。
Exit;
end;
end;
end;
Exit;
end;
end;

t

t

用http組件返回內容, 查找內容中<table></table>
將中間部分讀出來