[adidas]

Здравствуйте! Есть в Memo исходник html-страницы. Нужно все ссылки, которые есть в Memo1 вывести отдельно, в Memo2. Делаю вот так:

Код:

var
i: integer;
begin
for I := 0 to Memo1.Lines.Count - 1 do
  begin
  while Pos('<a href="',Memo1.Lines.Strings[i])<>0 do
    begin
    Memo2.Lines.Add(Copy(Memo1.Lines.Strings[i],Pos('<a href="',Memo1.Lines.Strings[i])+9,Pos('"',Memo1.Lines.Strings[i])-2));
    end;
  Memo1.Lines.Delete(i);
  end;
end;

, но что-то не выходит.
Подскажите, в чем проблема???