要获取HTML表格中的数据，可以使用Delphi中的TWebBrowser组件来加载HTML页面，并通过解析HTML文档来提取表格中的数据。以下是一个简单的示例代码，演示如何获取HTML表格中的数据：

usesMSHTML;procedure TForm1.btnGetTableDataClick(Sender: TObject);varHTMLDocument: IHTMLDocument2;Table: IHTMLTable;Row: IHTMLTableRow;Cell: IHTMLTableCell;i, j: Integer;beginif Assigned(WebBrowser1.Document) thenbeginHTMLDocument := WebBrowser1.Document as IHTMLDocument2;if Assigned(HTMLDocument) thenbeginTable := HTMLDocument.all.tags('table').item(0, 0) as IHTMLTable;if Assigned(Table) thenbeginfor i := 0 to Table.rows.length - 1 dobeginRow := Table.rows.item(i, 0) as IHTMLTableRow;for j := 0 to Row.cells.length - 1 dobeginCell := Row.cells.item(j, 0) as IHTMLTableCell;ShowMessage(Cell.innerText);end;end;end;end;end;end;

上述代码首先获取WebBrowser组件加载的HTML文档，然后遍历表格中的每一行和每一列，通过innerText属性获取单元格中的文本内容，并使用ShowMessage方法显示出来。您可以根据需要对获取到的数据进行进一步处理或存储。