Pintar un Grid ....me falta algo

[JULIOCTORRESG]

tengo un dbgrid y en el segun el valor de campo cambio el color de la fuente
a rojo o negro segun sea el caso

Código Delphi [-]
   Canvas.FillRect(Rect);

     // en base al campo decido si centrar o no el  texto
     largo:=length(Column.Field.AsString)*2;    //aca defino el largo del campo para luego restarlo y asi centrar el texto
 
        if (column.Field.fieldname='Status')and (column.field.value ='Vencido') then Canvas.Font.Color:=clred
                                                                          else canvas.font.Color:=clblack;

       if ((column.Field.fieldname='Status')or(column.Field.fieldname='Dias')) then Canvas.TextOut((Rect.Left + 20)-largo, Rect.Top + 2, Column.Field.AsString)
                                                                                else Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.AsString);

el problema es que cuando selecciono una fila el color es el predeterminado por windows en mi caso azul oscuro y con letra negra no se ve nada como coloco la fila seleccionada en letra blanca o vistosa....

gracias....