Zeilenanzahl eines memos SETZEN

[himitsu]

im Notfall könnte man auch so oft .Add aufrufen, bis die Zeilenanzahl erreicht ist

while Eingabe.Lines.Count < Anzahl do Eingabe.Lines.Add('');
in deinem Fall die vorhandenen Zeilen wie bisher füllen und dann die Zusätzlichen Zeillen anhängen
also so oft Folgendes aufrufen, bis die Zeilenanzahl wieder stimmt.
Eingabe.Lines.Add(IntToStr(random(1000000)));