Frage zu Lottozahlengenerator

[Siggy]

Hallo Community,

Wir sollen einen Lottozahlengenerator in der Schule programmieren.
Nun habe ich durch langes rumstöbern was gefunden...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
  for i:= 1 to 49 do Zahlen[i]:=false;
  for i:=1 to 6 do begin
   repeat
    z:=random(49)+1
   until Zahlen[z] = false;
   Zahlen[z]:=true;
  end;
  Edit1.Text:='';
  for i:=1 to 49 do
   if Zahlen[i] then memo1.Lines.add (Inttostr(i));
end;

Nur leider versteh ich so ziemlich gar nichts bei dem Code.
Kann mir den jemand verständlich erklären?
So alles bisschen ausseinanderpflücken und dann vlt so immer 2 Zeilen zusammenfassen in verständliches "Normalodeutsch" ?

Weitere Fragen:
Gibt es eine Möglichkeit, dass ich die Zahlen nicht alle auf einmal in dem Memo ausgebe? Sondern vor Jede Zahl noch eine Zeile oder so einfügen kann, sowas wie:
Zahl1: 23
Zahl2: 12

usw.
Geht das? Und wenn ja, wie?


mfg Siggy