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.

[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.

[ramonibk]

Bueno he probado lo que me comentas

if

 (qryPendientesFechaActivacion.AsDateTime < =Now)

Pero me sigue dando problemas
en este caso me marca en rojo las fechas del dia aunque la hora sea posterior a la actual.

[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