delphi 使用webbrowser取得网页中表格（Table）内容的正确方法

今天偶然需要取得网页中表格的内容，找了好久竟然都找不到，盒子中也没有，大富翁上也没有找到。

想了半天，貌似03年的某个资料上有，翻到了赶紧记下来，一个泛类型的简单应用。

csdn上面只有问的，没有答对的。

我把资料中的错误改正确了写在这里，需要的朋友可以查，利人利己。

需要注意的是：目前这是我发现的唯一正确的方法，如果有朋友知道，请补充一下。

procedure TForm1.btn1Click(Sender: TObject);
var
  i, j: integer;
  ovTable: OleVariant;
begin

  ovTable := Wb1.OleObject.Document.all.tags('TABLE').item(0);

  for i := 0 to (ovTable.Rows.Length - 1) do
  begin
    for j := 0 to (ovTable.Rows.item(i).Cells.Length - 1) do
    begin
      mmo1.Lines.Add(ovTable.Rows.Item(i).Cells.Item(j).Innerhtml);//原文是：InnerTxt，我需要判断表格中的链接
    end;
  end;

end;