1:
2:
3:
4:
5:
6:

Eietshi eceunr! hsUtgrh huc hig dpDe holo seed hamknlc glsDemlad ede ohr itnegbact izrmezngb.
act cfeei hcor eiafa Silaka csh nai Vruad. nnrül ceMt eaied höi at IddSde ub usu euIrmsnsusenu cmmanuminhtr!

==>>

Eticn Urh gp lsdan smd do nb rzb (usw.)					

1:
2:
3:

ErdhooEnasaisd...
ifenlceHHHvmce...
nuisookoisrdir...					

1:
2:
3:

E   r   d   h   o   o  
 i f e n l c e H H H
  n   u   i   s   o   o					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, yy, z: integer;
  dummystring: string;
  dummystring1: array of string;
begin

  dummystring := '';
  Memo1.Text := StringReplace(Memo1.Text, #13#10, '', [rfReplaceAll]);
  x := Length(Memo1.Text);
  z := x div SpinEdit1.Value;

  setlength(dummystring1, SpinEdit1.Value);
  x := 0;
  for y := 0 to SpinEdit1.Value - 1 do
  begin
    if y = 0 then
      x := 1
    else
      x := y; //keine Ahnung, warum hier ein Rechenfehler auftritt, wenn ich stattdessen in der nächsten Zeile..
    dummystring1[y] := copy(Memo1.Text, (y * z) + 1, z * x); // statt z*x schreiben würde z*(y+1)
  end;

  for y := 1 to z do
  begin
    for yy := 0 to SpinEdit1.Value - 1 do
      if dummystring1[yy][y] <> #0 then
        dummystring := dummystring + dummystring1[yy][y];
  end;

  Memo1.Text := dummystring;

end;