Du greifst auch einfach nur auf die Klasse TLabel zu und nicht auf eine spezielle Instanz, das geht natürlich nicht. Schreib folgendes in den private-Abschnitt deiner Form:
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure ChangeLabelColors(const AColor: TColor);
Dann die Implemetierung der Prozedur:
Delphi-Quellcode:
procedure TForm1.ChangeLabelColors(const AColor: TColor);
var
i: Integer;
begin
for i := 0 to ComponentCount - 1 do
if (Components[i] is TLabel) then
(Components[i] as TLabel).Font.Color := AColor;
end;
Ich habe jetzt mal Font.Color genommen, da du warscheinlich die Schrfitfarbe und nicht die Hintergrundfarbe ändern willst. Aufrufen kannst du das ganze dann so:
ChangeLabelColors(clNavy);
Edit: @BenjaminH: Warum machst den Parameter als "var"?
Edit2: Achso, das war ja oben schon.
MfG Pr0g