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.