Cambiar color de fuente de un String Grid.

[alfredosg19]

Hola a todos, tengo una tabla donde guardo los días y quiero que si es domingo o festivo me aparezca en rojo, pero solo este dia (no toda la tabla). He puesto un if para comparar si el contenido del Array en el valor tipo de horario es Festivo (1), entonces pinta la tabla toda de rojo (incluidos los días no festivos).

  if Dades[fil].THorari='1' then
 		Begin
 	  sghorari.Cells[dSet,0].Font.Color:=clRed;
 	  sgHorari.Cells[dSet,0]:=Dades[fil].Dia;
 	  sgHorari.Cells[dset,fil+1]:=Dades[fil].hora;
 		end
 	  else
 		Begin
 		 sghorari.Font.Color:=clBlack;
 	  sgHorari.Cells[dSet,0]:=Dades[fil].Dia;
 	  sgHorari.Cells[dset,fil+1]:=Dades[fil].hora;
 	end;

Necesitaria algo así, pero me da error.

sghorari.Cells[dSet,0].Font.Color:=clRed;

Gracias por vuestra valiosa ayuda.