DbGrid en color

[ramonibk]

Bueno os cuento.

Tengo una pequeña aplicación que tira de un motor Access, el programa lo que hace es controlar fechas y horas para dar avisos.

Tengo montado un sistema para cuando los avisos no han sido atendidos que me los pone en rojo dentro de un dbGrid.

begin

 if DataCol=TStringGrid(Sender).LeftCol-0 then

	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;

El problema que me presenta este código es que solo me marca en rojo cuando coincida la fecha y la hora pero si la fecha es antigua y la hora no lo es no me lo marca.

Como podría hacer para que me lo marcase en todos los casos.