Access Violation bei FindComponent

[shmia]

Grausam!! Fällt dir nichts auf, wenn du den gleichen Code 5 Mal hinschreibst ?
Nicht bös gemeint, musste aber gesagt werden.
Du brauchst einfach eine Zwischenvariable:

Delphi-Quellcode:

var
   c : TComponent;
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; 
   ...
  end;

Mit einer 2. Variablen vom Typ TLabel geht's noch leichter.