Access Violation bei FindComponent

[Chrissi91]

Ups, danke, habe ich übersehen.

Versuch ich mal. ^^

Aber warum brauch ich eine Zwischenablage? Es sieht doch so ganz logisch aus...

P.S.:

Ich glaube ich erhänge mich gleich.

Delphi-Quellcode:

procedure TfrmMain.btnRandomClick(Sender: TObject);
var
 Getippte_Zahlen: Array [1..6] of integer;
 i: integer;
 c: TObject;
 Label2: TLabel;
begin
 MixNumber(10);
 if durchlaeufe > 0 then
  begin
   for i:= 1 to 6 do
    begin
     if Assigned(c) and (c is TLabel) then
      begin
       Label2:=TLabel(c);
       Label2.Font.color:=clblack;
       Label2.Font.size:=14;
       Label2.Top:=Label2.Top+2;
       Label2.Left:=Label2.Left+2;
      end;
     end;
   end;
 for i:= 1 to 6 do
  begin
   Getippte_Zahlen[i]:=Lottozahlen[i];
   c := FindComponent('label'+inttostr(lottozahlen[i]));
   if Assigned(c) and (c is TLabel) then
    begin
     Label2:=TLabel(c);
     Label2.Font.color:=clred;
     Label2.Font.size:=18;
     Label2.Top:=Label2.Top-2;
     Label2.Left:=Label2.Left-2;
    end;
  end;
 Durchlaeufe:=Durchlaeufe+1;
end;

Selber Fehler.