Lottozahlen generieren lassen

Das Skript liefert euch '6 aus 49' - Zahlen, geordnet und ohne Doppelte.

[code:1]procedure TMainForm.Button1Click(Sender: TObject);
var Zahlen: Array[1..49] of Boolean;
i, z: Integer;
begin
for i:= 1 to 49 do Zahlen:=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 Edit1.Text:=Edit1.Text+' '+Inttostr(i)+' ';
end;[/code:1]