как качнуть из тегов текст в memo

[Лёка]

А как можно реализовать такую тему, которая с какого-нибудь сайта качал определенную инфу и грущила в себя(текст в мемо, картинку м image). Ну к примеру... абзац какой-нибудь. Больше интересует как качнуть из тегов текст в memo к примеру

[Pitbull]

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: integer;
  tag_: OleVariant;
begin
  tag_ := WebBrowser1.OleObject.Document.all.tags('ЛЮБОЙ ТЕГ').item(0);

  for i := 0 to (tag_.Rows.Length - 1) do
  begin
    for j := 0 to (tag_.Rows.Item(i).Cells.Length - 1) do
    begin
      Memo1.Lines.Add(tag_.Rows.Item(i).Cells.Item(j).InnerText);
    end;
  end;
end;

[Лёка]

она на первом for взращает ошибку. Я тут другой метод придумал, через idhttp загрузить искодный текст в memo, и выполнить поиск тега. Вот тока как найти тег и все что внутри открывающей части и закрывающей части тега выюзать в другой memo?

[AlDelta]

Функции работы со строками Pos и Copy...

http://www.delphibasics.ru/Pos.php - Pos
http://www.delphibasics.ru/Copy.php - Copy

[Квэнди]

Поиск по форуму. закрыто.