Вывод информации с интернета!

[Arsenx777]

я хочу вывести несколько строк из стиха на моём сайте в мемо! вот html код

<p align="center"><font face="Century Gothic" size="2"><b><i>Встречать на зорьке у реки, </i></b></font></p>

<p align="center"><font face="Century Gothic" size="2"><b><i>И наслаждаться той свободой, </i></b></font></p>

<p align="center"><font face="Century Gothic" size="2"><b><i>Которой бредят рыбаки. </i></b></font></p>

<p align="center"><font face="Century Gothic" size="2"><b><i>Какая б ни была погода, </i></b></font></p>

<p align="center"><font face="Century Gothic" size="2"><b><i>Что б дел домашних избежать, </i></b></font></p>

как сделать? помогите pliz!

[_SERGEYX_]

Если только это... то выдерни из текста функциями Copy и Pos все между тегами <i>....</i>

[Arsenx777]

а как? во всех строках исходный текст одинаковый, с какой позитии (pos)

[_SERGEYX_]

На черновую, что-то вроде этого...
Допустим, текст выше находится в memo1. Запишем его в memo2 без тегов.

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var s: string;
begin
  s := Memo1.Text;
  while pos('<i>', s) > 0 do
  begin
    Memo2.Lines.Add(copy(s, pos('<i>', s) + 3, pos('</i>', s) - pos('<i>', s) - 3));
    s:= Copy(s,pos('</i>', s)+ 3, Length(s));
  end;
end;

P.S. Где-то встречал функцию удаления html-тегов из текста.