var
str:string;
i:integer;
slist:Tstringlist;
begin
str:= 'aadsadsdasdsadasdasdsadasgvfbhgfjhhg...';
while length(str) mod 10 <> 0 do
str := str + ' ';
slist:= Tstringlist.create;
for i := 1 to length(str) div 10 do
slist.add(copy(str,(i - 1) * 10 + 1, 10));
showmessage(slist.text);
slist.free;
end;