La sugerencia consiste en crear un campo calculado en la consulta y en en el evento OnCalcFields colocar el valor que te interesese.
Código:
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
If Table1Orderno.Value > 9000 then
Table1Nuevo.value:='Sí'
else
Table1Nuevo.value:='No'
end;
El ejemplo no tienes más que adaptarlo es decir substituir el Ttable por un Tquery y el resto lo mismo.
Un Saludo.