Wie am besten String aufteilen?

[DGL-luke]

Delphi-Quellcode:

procedure StuffintoLV(LV:TListView; sts: TStrings; SPerE: integer;separator: string);
var numEntries, i:integer;
    s:string;
begin
numEntries := sts.count div SPerE;

for i := 0 to numEntries -1 do
 begin
  s := sts[i*SPerE]+separator+sts[i*SPerE+1]+separator+sts[i*SPerE+2]
  LV.add(s);
 end;

end;

noch fragen? in sts sollte das ganze gebrabbel stehen, und zwar in Blöcken von SPerE.
(also Name1-xxx1-yyy1-name2-xxx2-yyy2)