Cerdas de otro color con Quantum Grid?

[El_Raso]

Que tal foristas....

Quiero carbiarle el color a una cerda dependiendo del valor que tenga en el campo, estoy usando los grid de DevExpress (QuatumGrid) el codigo es el siguiente:

Código Delphi [-]
procedure TFprestamo.dbgpestamosCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
 if AViewInfo.Item.ID = 0 then
     begin
         ACanvas.Canvas.Font.Style := [fsBold];
        if Tablas.HprestamoFECHAVENCIMIENTO.Value < Date then
            begin
             ACanvas.Canvas.Brush.Color := clRed;
             ACanvas.Canvas.Font.Color := clBlack;
            end;   
      end;
end;

Si la fecha de vencimiento del prestamo es mayor que la actual que me ponga el numero del prestamo en rojo... pero eso se me aloca y hace lo que le da la gana...

Que estoy haciendo mal... ya he buscado en los foros de devExprees y no entiendo ni papas... una mano por favor..

Thx