[NestorN]

Hola muchas gracias por la ayuda, con el evento BeforePrint me anduvo bien.

Código Delphi [-]
      
if form1.tabla1Id_Estado.Value = 2 then
  begin
         QRDBText1.Font.Color:=clred;
   end
else
     QRDBText1.Font.Color:=clGreen;

Gracias por la ayuda de todos.