копирование 10значных цифр из memo

[igabenu]

Друзья, подскажите, как из нескольких строк в memo1, скопировать только 10значные числа и записать их в memo2?

[mss]

В цикле, вестимо

[Stilet]

for i:=0 to Memo1.Lines.Count-1 do
 if length(trim(memo1.Lines[i]))=10 then Memo2.Lines.Add(memo1.Lines[i]);