Пример показывает как добавить содержимое каждой ячейки в TMemo:
procedureTForm1.Button1Click(Sender: TObject); var
i, j: integer; ovTable: OleVariant; begin
// Use first table ovTable := WebBrowser1.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
Memo1.Lines.Add(ovTable.Rows.Item(i).Cells.Item(j).InnerText; end
; end
; end
;