Memoeintrag hinzufügen (erweitert)

[Bummi]

der Ansatz wirkt extrem befremdlich, dass dabei nichts sinnvolles rauskommt wenn mehr als 2 Zeilen in Memo1 sind, oder die Zeilen keine gültige Zahl ergeben ist Dir klar.
Dein Problem hier ist das
 Memo2.Lines.Insert(i, FloatToStr(k)); Du fügst hier an die Stelle i die nach dem Schleifendurchlauf eigentlich nicht auswertbar ist, bei 2 Zeilen üblicherweise aber 3 enthalten wird einen Text ein, das geht aber nur wenn Memo2 bereits mindestens 3 Zeilen beinhaltet.
Du meinst wahrscheinlich entweder Memo2.lines.add(FloatToStr(k))
oder Memo2.Text := FloatToStr(k)