[Пионер]

Организуй цикл, в чём проблема?

Код:

for k := 0 to Memo.Lines.Count do Name('Memo.Lines.Strings[k]');