Pintar un dbGRid

[sebas78]

Hola:

quisiera saber como hacer para pintar una celda en especial de un dbgrid segun el color que el usr elige del control de colores
en este momento estoy usando el ste codigo pero no pasa nada

procedure TFPuma0058.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
inherited;
DBItems.Canvas.Brush.color := clred;
DBItems.Canvas.FillRect(rect);
DBItems.defaultdrawdatacell(Rect,Field,State);
end;

eb este caso no uso el componennte de color lo hice asi para probar y no me pinta ninguna celda de rojo. quisiera saber si tengo que poner alguna propiedad del TdbGRid o algo asi.
Gracias!!!!!!!!!!!!!!!!!!