Добавить только одну строчку, а не все

[hozey]

В общем получаю ссылки:

...
for i := 0 to UrlList.Count-1 do
Memo2.Lines.add(UrlList.Items[i].NodeByName('link').ValueAsString);
...

Код, работает и добавляет в Мемо все что нашел. Как мне добавить не все ссылки, а допустим только одну.
Спс.

[Lemo]

memo2.clear;

for i := 0 to UrlList.Count-1 do
begin
  Memo2.Lines.add(UrlList.Items[i].NodeByName('link').ValueAsString);
 if length(memo2.text)<>0 then break;
end;

Так не подойдет?

[hozey]

Сообщение от Lemo

memo2.clear;

for i := 0 to UrlList.Count-1 do
begin
  Memo2.Lines.add(UrlList.Items[i].NodeByName('link').ValueAsString);
 if length(memo2.text)<>0 then break;
end;

Так не подойдет?

[DCC Error] Unit1.pas(104): E2097 BREAK or CONTINUE outside of loop

[hozey]

Разобрался