[lmikle]

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

Код:

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;