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