Color en Linea DBGRID

[[oscarac]]

se que este tema se ha tratado en innumerable ocasiones pero he probado todos los ejemplos habidos y por haber y no logro encontrar una solucion

tengo una consulta donde jalo el color que quiero que se pinte en el grid de acuerdo a cierta caracteristica (predefinida en el query)m el asunto que el campo qryArticulosColor debe ser 0 o un dato (TColor) que puede ser diferente

la idea es pintar las lineas del grid de acuerdo a un color predeterminado (varios colores)

Código Delphi [-]
procedure TfrmCatalogoArticulo.dbgArticuloDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Chk : Integer;
begin

  if qryArticulosColor.AsInteger <> 0 then
  Begin
    UnColor := qryArticulosColor.AsInteger;
    dbgArticulo.Canvas.brush.Color := clUnColor;
    dbgArticulo.Canvas.Font.Color := clBlack;
  End
  Else
  Begin
    dbgArticulo.Canvas.Font.Color := clBlack;
    dbgArticulo.Canvas.brush.Color := clWhite;
  End;
  dbgArticulo.Canvas.FillRect(Rect);
end;

y obtengo como resultado esto :




si cambio algunos valores del campo "Color" me sale esto



si bien es cierto pinta toda la linea del color previamente escogido, el texto no esta en negro y lo que no esta asignado color tampoco aparece