[ramonibk]

Bueno al final lo que he echo es intentar poner todas las posibilidades
y lo he montado de esta manera

begin
 if DataCol=TStringGrid(Sender).LeftCol-0 then
	if (qryPendientesFechaActivacion.AsDateTime < Date)
	  then UnColor:=clRed
	  else UnColor:=clBlack;
	if (qryPendientesFechaActivacion.AsDateTime = Date) And (qryPendientesHoraActivacion.AsString < Hora)
	  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;

Por cierto la variable Uncolor es una bariable global de tipo TColor