Lines in einem Memofeld bestimmen

[whiteshark]

Moin Leute,

Ich habe ein Problem. Wir sollen ein Programm schreiben, dass alle Sortieralgorithmen miteinander vergleicht. Nun will ich mit einem Button 65000 Zufalls zahlen generieren, das geht aber net. Nun meine Frage, wie kann ich einem Memofeld sagen, dass es 65000 lines freigeben soll? Meine zweite Frage, wie kann ich etwas in eine Listbox schreiben bzw. auslesen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a: array[1..n] of integer;
var i,j: integer;
begin
randomize;

for i:=1 to n do
        begin
        a[i]:=random(n+10);
        end;

for j:=1 to n do
        begin
        memo1.Lines[j-1]:=inttostr(a[j]);
        end;


end;

Ich hoffe mir kann jemand helfen.