6 aus 45

[ScrollbarKopf]

Servus leute hab ein proplem hab ein programm das aus 45 zahlen 6 zufällige wählt aber es dürfen net die gleichen kommen kann mir jemande helfen hier mein code.
end;

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f : integer;
begin
randomize;
a:=random(46);
b:=random(46);
c:=random(46);
d:=random(46);
e:=random(46);
f:=random(46);
edit1.text := inttostr(a);
edit2.text := inttostr(b);
edit3.text := inttostr(c);
edit4.text := inttostr(d);
edit5.text := inttostr(e);
edit6.text := inttostr(f);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

[edit=sakura] Titel geändert und [delphi]-Tags Mfg, sakura[/edit]