Como puedo aplicar un descuento con excepción

[defcon1_es]

Lo que te está diciendo el compilador es que has declarado la variable "Sueldo_Bruto_Empleado" en el procedimiento "ppVariable2Print" y no se usa dicha variable.

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 begin
         Qry_Hacer_Calculosueldo_Bruto_Empleado.Value := 112700.00;
         ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
      end;
end;