Pintar celdas StringGrid

[cacu]

Bien ..Agradesco nuevamente a quienes tan amablemente me respondieron y dieron una solucion.

Quisiera que me disculparan por no haber mencionado el problema mas
detalladamente.

El caso es el siguiente:

Dispongo de un stringrid en el cual voy a mostrar registros de una
base de datos.

Bien en el grid debo destacar con diferentes colres las celdas
que cumplan con un determinado criterio.

por ejemplo:

1.- si el el dato a mostrar cumple con un estado = 1
las celdas donde se muetre ese dato deberan estar
en amarillo
2.- si el dato a mostrar cumple cun un estado = 2
las celdas donde se muestre ese dato deberan estar en
azul.

Bien el dato a mostrar tiene una relacion de fecha a demas
esto es que en cada columna como cabezera tengo fechas
Entonces el siguiente criterio es determinar que el dato a mostrar
se ajuste en la culumna de una fecha determinada..

Bien en el primer criterio , esto es de pintar solo las celdas
que cumplan con dato =1 o dato=2. ya mas menos lo resolvi de esta manera
//Dato a modo de ejemplo puesto que debo de leerlo desde un registro
Var
reserva:Integer;
i:string;
Dato:string;
begin
dato='Paciente 1';
i:= StringGrid1.Cells[x , y];

reserva:=1;
if i <> z then
ACanvas.Brush.Color := clwhite
else
begin

case reserva of
1 :begin
ACanvas.Brush.Color := clyellow;
end;
2 :ACanvas.Brush.Color := clmoneygreen;

3 :ACanvas.Brush.Color := clskyblue;
4 :ACanvas.Brush.Color := clcream;
end
end;

end;