1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

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

1:
2:
3:
4:
5:
6:

Edit1.Text := IntToStr(Random(49)+1);
Edit2.Text := IntToStr(Random(49)+1);
Edit3.Text := IntToStr(Random(49)+1);
Edit4.Text := IntToStr(Random(49)+1);
Edit5.Text := IntToStr(Random(49)+1);
Edit6.Text := IntToStr(Random(49)+1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TLottozahlen.Button1Click(Sender: TObject);
 var PoolList : TStringList;
     i,PoolIndex: Integer;
begin
  PoolList := TStringList.Create;
  try
    //ZahlenPool füllen
    for i:=1 to 49 do
      PoolList.Add(IntToStr(i)); 
    //Zieheung
    for i:=1 to 6 do 
    begin
      PoolIndex := random(PoolList.Count); //Zahl ziehen
      //FindComponent setzt 6 durchnumerierte Edits voraus -> siehe Forum und OH
      TEdit(FindComponent('Edit'+IntToStr(i))).Text := PoolList.Strings[PoolIndex]; 
      //Das ist ein kleiner Trick um sowas zuvermeiden 
      //(Code ab hier nicht nötig!)
      case i of
        1 : Edit1.Text := PoolList.Strings[PoolIndex]; 
        2 : Edit2.Text := PoolList.Strings[PoolIndex];
        3 : Edit3.Text := PoolList.Strings[PoolIndex];
        4 : Edit4.Text := PoolList.Strings[PoolIndex];
        5 : Edit5.Text := PoolList.Strings[PoolIndex];
        6 : Edit6.Text := PoolList.Strings[PoolIndex];
      end;
      //(Ende unötiger Code!)
      PoolList.Delete(PoolIndex); //gezogene Zahl aus Pool entfernen
    end;
  finally
    PoolList.Free;
  end;
end;