А зачем удалять? Если по 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;