Como puedo aplicar un descuento con excepción

[[duilioisola]]

Por lo que entiendo, devuelves en ppVariable2.Value el 3.01% del Sueldo Bruto, si no pasa de 112700. Si sobrepasa ese valor devuelves el 3.01% de 112700.
Creo que deberías hacerlo así:

Código Delphi [-]
procedure TFrm_Reporte_de_Nomina.ppVariable2Print(Sender: TObject);
// var Sueldo_Bruto_Empleado : Double;  <- borra o entrecomenta esta linea del codigo
begin
      if Qry_Hacer_CalculoSueldo_Bruto_Empleado.value > 112700.00 then 
         ppVariable2.Value := 112700.00 * 3.01 / 100
      else
         ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
end;