[marcoszorrilla]

Código Delphi [-]
    begin
   if DataCol=TStringGrid(Sender).LeftCol-0 then
     if (qryPendientesFechaActivacion.AsDateTime < =Now)then
     UnColor:=clRed
     else
     UnColor:=clBlack;
 
     with (Sender As TDBGrid).Canvas do
     begin
     Font.Color:=UnColor;
     FillRect(Rect);
     TextOut(Rect.Left, Rect.Top, Column.Field.AsString);  end;
     end;
 end;
 

Código Delphi [-]

 

Un Saludo.