[lmikle]

А зачем удалять? Если по 10 символов, то можно просто копировать:

Код:

1 2 3 4 5 6 7 8 9

var   S : String;   I : Integer; begin   S := Edit1.Text; // source value   Memo1.Libnes.Clear; // clear output   For I := 0 To (Length(S) div 10) Do     MEmo1.Lines.Add(Copy(S,I*10+1,10); end;