как вытащить текст с Memo между определённых тегов

[duhduhduh]

Здравствуйте!

Вопрос такой: у меня есть Memo в котором HTML-код. Мне нужно вытащить текст между тегов ...<a href="НУЖНЫЙ_МНЕ_ТЕКСТ">... и добавить этот текст в ListBox1. И продолжить дальше искать текст между тегами..

В этом Memo несколько таких тего с нужным мне текстом. Текст я записываю в ListBox.

Я нигде не могу найти как вытаскивать текст которые помещён между [известными нам] тегами.

Подскажите пожалуйста!

[T_I_T_A_N]

используй функции для работы со строками pos delete copy и так вырезай нужный тебе текст из строки memo1.lines.text

[duhduhduh]

спасибо - попробую найти об этом..

А так я уже нашёл подобное тому что я хотел реализовать: http://www.programmersforum.ru/showthread.php?t=47766

[T_I_T_A_N]

var s: string; i: integer;
begin
s:=memo1.lines.text;
i:=pos('<a',s);
while i<>0 do
begin
delete(s,1,i+1);
i:=pos('href="',s);
delete(s,1,i+5);
ListBox1.Items.Add(copy(s,1,pos('"',s)-1));
i:=pos('<a',s);
end;
end;