要獲取HTML表格中的數據，可以使用Delphi中的TWebBrowser組件來加載HTML頁面，并通過解析HTML文檔來提取表格中的數據。以下是一個簡單的示例代碼，演示如何獲取HTML表格中的數據：

uses
  MSHTML;

procedure TForm1.btnGetTableDataClick(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  Table: IHTMLTable;
  Row: IHTMLTableRow;
  Cell: IHTMLTableCell;
  i, j: Integer;
begin
  if Assigned(WebBrowser1.Document) then
  begin
    HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
    if Assigned(HTMLDocument) then
    begin
      Table := HTMLDocument.all.tags('table').item(0, 0) as IHTMLTable;
      if Assigned(Table) then
      begin
        for i := 0 to Table.rows.length - 1 do
        begin
          Row := Table.rows.item(i, 0) as IHTMLTableRow;
          for j := 0 to Row.cells.length - 1 do
          begin
            Cell := Row.cells.item(j, 0) as IHTMLTableCell;
            ShowMessage(Cell.innerText);
          end;
        end;
      end;
    end;
  end;
end;

上述代碼首先獲取WebBrowser組件加載的HTML文檔，然后遍歷表格中的每一行和每一列，通過innerText屬性獲取單元格中的文本內容，并使用ShowMessage方法顯示出來。您可以根據需要對獲取到的數據進行進一步處理或存儲。