Cambiar color de QRDBText según su valor

[ecfisa]

Hola Voltimer, bienvenido a Club Delphi

Es costumbre con los que ingresan sugerirles la lectura de nuestra guía de estilo.

Con respecto a tu consulta, creo que es mas simple comparar con el valor de la columna(campo), ejemplo:

Código Delphi [-]
...
var
  Value: Integer;
begin
  with QRDBText1 do
  begin
    Value := DataSet.FieldByName(DataField).AsInteger;
    if Value < 10 then
      Font.Color := clBlack
    else if Value <= 30 then
      Font.Color := clYellow
    else
      Font.Color := clRed;
  end;
end;

Saludos