[fidel]

Hola:

Pon la condición en el evento OnPrint del QRDBText

Código Delphi [-]
procedure TFListar.QRDBText1Print(sender: TObject; var Value: String);
begin
  if QRDBText1.Caption := '1' then
      QRDBText1.Font.Color := clTeal
  else
      QRDBText1.Font.Color := clBlack;
end;

Un saludo.