Hi, Kaffeesüchtiger, herzlich willkommen
Delphi-Quellcode:
while(i <= laenge) do
begin
setlength(satz, laenge);
Da machst du in der Schleife immer das gleiche, das reicht einmal vor der Schleife, wie du es zusätzlich auch hast.
Und kann es sein,
laenge sollen die Anzahl der Zeilen des Memos sein? Das ginge so:
laenge := Memo1.Lines.Count;