procedure TfrConFacturas.DBGrid1ColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
dHoy:=Date;
if FacturaFecha.Value <= Date - 10 then
Begin
DBGrid1.Canvas.Brush.Color :=clInfobk;
DBGrid1.canvas.font.color:=ClRed;
DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end
end;