Zeilenanzahl eines memos SETZEN

[Shimau]

Und zwar hab ich ne Schleife geschrieben, die Zeilen eines Memos automatisch füllen soll. Nun werden beim testen aber immer nur die gefüllt, wo ich vorher schon etwas stehen hatte. Ich möcht natürlich aber auch die ganzen anderen Felder füllen. Ich nehm mal an das progi kann diese aber nicht füllen, da diese ganz einfach nicht existieren. Lines.Count kann man jedoch nicht setzen, wie mach ich das?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  Randomize;
  for i:=0 to StrToInt(Anzahl.Text)-1 do
  begin
    Eingabe.Lines[i]:=IntToStr(random(1000000));
  end;
end;