begin
   i := 0;
   while i < T1.Count do
   begin
       str := '';
       for j := i to min(i + step - 1, T1.Count - 1) do
       str := str + T1.Strings[j] + ' ';
       T2.Add(trim(str));
       i := i + (step-1);
   end;