Access Violation bei FindComponent

[omata]

Moin,

wie wäre es wenn du c dann auch benutzt?

Delphi-Quellcode:

for i:= 1 to 6 do
  begin
   Getippte_Zahlen[i]:=Lottozahlen[i];
   c := FindComponent('label'+inttostr(lottozahlen[i]));
   if Assigned(c) then
    begin
     TLabel(c).Font.color:=clred;
     TLabel(c).Font.size:=18;
     TLabel(c).Top:=TLabel(c).Top-2;
     TLabel(c).Left:=TLabel(c).Left-2;
    end;
  end;

Edit:
So wäre es allerdings etwas besser...

Delphi-Quellcode:

var c:TObject;
    Label:TLabel;
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
    Label:=TLabel(c);
    Label.Font.color:=clred;
    Label.Font.size:=18;
    Label.Top:=Label.Top-2;
    Label.Left:=Label.Left-2;
  end;
end;

MfG
Thorsten