1:

if form1.Controls[x].Name = 'Ziehung' then //Ist der Name der Gruppbox der Bereich wo geklickt wurde                    

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

Procedure Tform1.ZSTART(Sender: TObject);   //Ziehung starten
var zahl : integer;
    ziehung: array [1..6] of integer;
    x: Integer;
    i : integer;
    zanzahl: Integer;
    gleichheit : integer;
    tklabel : TLabel;
    test : integer;
begin
randomize;
gleichheit := 0;
zanzahl := 1; //Menge an zufallszahlen auf 0 setzen
for x := 1 to 6 do //alle arrays mit 0 füllen
begin
  ziehung[x]:=0; //alle Arrays mit 0 füllen
end;

while zanzahl<6 do
begin
    zahl := trunc(random(48)+1);
  for x := 1 to 6 do
  begin
    if ziehung[x] = zahl then
    begin
      gleichheit := 1; //wenn zufallszahl schon gezogen wurde gleicheit auf 1 setzen
    end;
  end;
  if gleichheit = 0 then //wenn gleicheit 0 ist
  begin
    ziehung[zanzahl] := zahl; //aktuelles Array mit zufallszahl füllen
    gleichheit := 0; // gleicheit wieder auf 0 setzen
    zanzahl := zanzahl + 1; //um 1 erhöhen, damit das nächste Array dran ist
    zahl := 0; //auf 0 setzen
  end
  else // ansonsten alles auf 0 setzen und nächste zufallszahl erzeugen und durchlauf wiederholen
  begin
    gleichheit := 0;
    zahl := 0;
  end;
end;
//6 Zufallszahlen stehen nun im Array
//Panel in "gezogene Zahlen" mit den werten aus dem Array füllen
    test:=form1.ControlCount-1;
    showmessage(inttostr(test));
for x := 0 to form1.ControlCount-1 do //geht alle Elemente in der Form1 durch
zanzahl := 1;
begin
  if form1.Controls[x] is tgroupbox then // ist das Element ein Groubox
  begin
    if form1.Controls[x].Name = 'Ziehung' then //Ist der Name der Gruppbox der Bereich wo geklickt wurde
    begin

      for i := 0 to form1.Controls[x].ComponentCount-1 do // alle elemente der Groupbox durchgehen
      begin
        if form1.Controls[x].Components[i] is tlabel then //ist das Element ein Label
        begin
          tklabel := form1.Controls[x].Components[i] as tlabel;
        end;
        if tklabel.Name = 'gezzahl' + inttostr(zanzahl) then //ist der name des Labels richtig
        begin
          tklabel.caption := inttostr(ziehung[zanzahl]);
          zanzahl := zanzahl + 1;
        end;
            end;
          end;
    end;
  end;
  //showmessage(inttostr(zahl));
end;                    

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

//for x := 0 to form1.ControlCount-1 do //geht alle Elemente in der Form1 durch
for x := 0 to ControlCount-1 do //Innerhalb der Klasse nie(!) die Instanz-Variable verwenden!
begin // Das begin stand eine Zeile zu tief
  zanzahl := 1;
...
end;                    

1:
2:

for x := 0 to form1.ControlCount-1 do //geht alle Elemente in der Form1 durch
zanzahl := 1