Como puedo aplicar un descuento con excepción

[esimon]

gracias LuisGutierrezd nuevamente, estuve probando la modificacion de la rutina que me hiciste y le hice alguna modificaciones proque me daba un erro y quedo asi.

procedure TFrm_Reporte_de_Nomina.ppVariable2Print(Sender: TObject);
var Sueldo_Bruto_Empleado : Double;
begin
      if Qry_Hacer_CalculoSueldo_Bruto_Empleado.value > 112700.00 then begin
         Qry_Hacer_Calculosueldo_Bruto_Empleado.Value := 112700.00;
         ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
      end;
end;

me esta arrojando esto

[Hint] Un_Reporte_de_Nomina.pas(118): Variable 'Sueldo_Bruto_Empleado' is declared but never used in 'TFrm_Reporte_de_Nomina.ppVariable2Print'

y no tengo idea de que se trata, pero tampoco me hace los calculos que quiero.