Копирование строки между тегами

[KiDoki]

Драсти, уважаемые.
Назрела такая задача:

имеется исходный код страницы, который я получил с помощью idHTTP. Где-то внутри кода есть отрывок:

<font color=white>You have 1 new message!</font>

Как достать вот этот текст "You have 1 new message!"?

ЗЫ
Я не знаю на какой строке находится этот отрывок.
ЗЗЫ
Тег <font color=white> </font> используется только один раз на странице
ЗЗЗЫ
Прошу сразу с примером, т.к. со строками не очень дружу.

[Квэнди]

функции pos и copy

temps:='<font color=white>';
tempres:=copy(s,pos(temps,s)+length(temps),length(s)-pos(temps,s)-length(temps));
result:=copy(tempres,1,pos('<',tempres)-1);

[Kostia]

var
  f: textfile;
  s: string;
begin
  AssignFile(f,'1.txt');
  reset(f);
    while not eof(f) do
    begin
      readln(f,s);
      if pos('<font color=white>',s)<>0 then
      begin
        s:=copy(s,pos('<font color=white>',s)+length('<font color=white>'),
                  length(s)-pos('<font color=white>',s)-length('<font color=white>')-length('</font>'));
        Break;
      end;
    end;
  CloseFile(f);
  form1.Caption:=s;

[KiDoki]

Спасибо огромное, постораюсь разобраться.

[KiDoki]

Работает всё отлично кроме одного, текст что копирует функция - "You have 1 new message!</font>" т.е. вместе с </font>. Не пойму как убрать...

[KORN]

в принципе можно сделать так: начинаешь проверять текст, если начинается с < то ставишь переменную true и пропускаешь все последующие символы, как только встречаешь > изменяешь значение переменной на false и далее заносишь текст в переменную, таким образом можно вырезать весь HTML код

[KiDoki]

Забыл сказать:
всё работает, использовал процедуру Кости, а проблему которую описал в 5-ом сообщении решил с помощью функции Delete(как я раньше не додумался...)
Спасибо всем.

[KiDoki]

Назрел вопрос связаный с алгоритмом, предоставленным Костей:
как узнать если алгоритм не нашел текста "You have 1 new message!"?
ЗЫ

if s='' then ...

не подходит

------решил:------
Искал через Pos какую-то букву:

if Pos(s,'Y')=1 then ..