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:

procedure TForm1.Button1Click(Sender: TObject);
var index:integer;
var index2:integer;
begin
Randomize;
for
  index := 1 To 7
Do
  Begin
  Lottozahlen[index] := Random(49)+1;
  end;

for
  index := 1 To 7
Do
  Begin
    for
      index2 := 1 To 7
    Do
      Begin
        while
          lottozahlen[index] = lottozahlen[index2]
        Do
          lottozahlen[index2] := Random(49)+ 1
      end;
  end;					

1:
2:

while lottozahlen[index] = lottozahlen[index2] do 
lottozahlen[index2] := Random(49)+ 1					

1:
2:

wiederhole folgendes solange, bis lottozahl[i] gleich lottozahl[i2] ist:
lottozahlen[i2] := random(49)+1					

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

procedure TForm1.Button1Click(Sender: TObject); 
var i:integer; 
      i2:integer;     // du brauchst nur 1x var
begin 
{ Randomize; } // würde ich in's OnCreate-Ereignis schreiben (doppelklick auf Formular)
for i := 1 to 7 do begin 
  Lottozahlen[i] := Random(48)+1;  // siehe oben
end; 

for i := 1 to 7 do begin 
  for i2 := 1 to 7 do begin
    repeat // wiederhole folgendes solange, bis..
      lottozahlen[i2] := random(48) + 1;  // s.o.
    until lottozahlen[i] <> lottozahlen[i2]; // ...das hier stimmt
  end; 
end;					

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:

type
  TLottozahlenArr=array[1..7] of Integer;

function ZieheZahlen:TLottozahlenArr;
var i, j:Integer;
     ok :Bool;
begin
  FillChar(Result, SizeOf(TLottoZahlenArr), 0);
  i:=1;
  repeat
    Result[i]:=Random(48)+1;
    ok:=True;
    if (i>1) then 
    begin
      for j:=1 to i-1 do if (Result[i]=Result[j]) then
      begin
        ok:=False;
        Break;
      end; // if, for
    end; // if
    if ok then Inc(i);
  until (i>7);
end; // ZieheZahlen


var
  Ziehung:TLottozahlenArr;

  ...
  Ziehung:=ZieheZahlen;
  ...					

1:

while (index<>index2) and (Lottozahlen[index]=Lottozahlen[index2]) do ...					

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

var
zahlen: array [0..49] of integer;
i,zahl1, zahl2, tausch: integer;
begin
for i:=1 to 49 do
zahlen[i-1]:=i;					

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

for i:=1 to 10000 do begin
zahl1:=Random(49)+1;
zahl2:=Random(49)+1;
tausch:=zahl1;
zahl1:=zahl2;
zahl2:=tausch;
end;					

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

Procedure lottozahlen;
var
  zahlen: array [0..49] of integer;
  i,zahl1, zahl2, tausch: integer; 
begin
  for i:=1 to 49 do 
    zahlen[i-1]:=i;
  for i:=1 to 10000 do begin
    zahl1:=Random(49)+1;
    zahl2:=Random(49)+1;
    tausch:=zahl1;
    zahl1:=zahl2;
    zahl2:=tausch;
    end;
end;					

1:
2:
3:
4:

end;
initialization
randomize;
end.					

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

procedure TForm1.Button1Click(Sender: TObject);
var index,index2:Integer;
    ungleich:Boolean;
begin
for index:=1 to 7 do
Lottozahlen[index]:=Random(49)+1;
repeat
    ungleich:=true;
    for index:=1 to 7 do
    for index2:=1 to 7 do
    if (index<>index2) and (Lottozahlen[index]=Lottozahlen[index2]) then begin
        Lottozahlen[index2]:=Random(49)+1;
        ungleich:=false;
        Break;
    end;
until ungleich;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : integer;
  changed : boolean;
begin
  Randomize;

  For i := 1 to 7
    do Zahlen[i] := Trunc(Random(49)+1);

  Repeat
  changed := false;
    For i := 1 to 7 do begin // Alle Zahlen durchgehen
      For j := i+1 to 7 do begin // Alle folgenden Zahlen vergleichen
        IF Zahlen[i] = Zahlen[j] then begin // Wenn gleich letzte neu
          Zahlen[j] := Trunc(Random(49)+1);
          changed := true; // Und merken, daß sich was geändert hat
        end;
      end;
    end;
  until changed = false;
end;