Weiss nicht, wo Dein Problem liegt,
Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender: TObject);
Const
MyColors: Array[0..3] Of TColor = (clRed, clYellow, clGreen, clBlue);
Begin
StringGrid1.Font.Color := MyColors[Random(Length(MyColors))];
End;
funktioniert ganz wunderbar.
Schonmal den Debugger bemüht?