Access Violation bei FindComponent

[omata]

Welcher Fehler? Welche Zeile?

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;

Tu uns und dir doch bitte den Gefallen und rücke ordentlich ein.

Wo wird den im ersten Teil c initalisiert?

MfG
Thorsten