Zeichenlänge eines Memo zu klein

[hathor]

For i := 1 to Memo1.Lines.Count - 1 do begin
???
For i := 0 to Memo1.Lines.Count - 1 do begin

Memo.Lines[] ist ein StringArray, das wie ein Array 0-indiziert ist.

Ausserdem:
Memo1.Lines.Add(daten);
besser:
Memo1.text:= daten;