Lotto HILFE´!!!

[school- delphi]

Hallo

es klappt jetzt--- ihr seid echt super
vielen herzlichen dank

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

 var
  Menge: set of Byte;
  i,y: Integer;
begin
  Menge := []; //Menge initialisieren
  Randomize; //Zufallsgenerator initialisieren 
  for i := 1 to 6 do
  begin 
    repeat
      y := Random(49)+1; //Zahl generieren 
    until not (y in Menge); //Ueberpruefen ob Zahl schon in Menge
    Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
    ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;