[Rampl]

Подскажите как получить список URL из определённой таблицы в WebBrowser-е

[Rampl]

Подскажите что нужно поменять что бы в Memo загружался не текст в таблице, а ссылки, которые находятся в этой таблице.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.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;