Label1.Font.Color

Green = clGreen, Red = clRed, Black = clBlack

Colo : array[1..6] of Tcolor;

Colo[1] := clBlack; etc..

Label1.Font.Color := clRed;

Label1.Font.Color := Colo[1];