creo que las instrucciones un poco corregidas quedarian asi:
Código Delphi
[-]
procedure TFrm_Reporte_de_Nomina.ppVariable2Print(Sender: TObject);
var Sueldo_Bruto_Empleado : Double;
begin
if Qry_Hacer_CalculoSueldo_Bruto_Empleado.value > 112700 then begin
sueldo_Bruto_Empleado := 112700
ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
end;
end;
lo que esta en negritas es lo corregido aunque no por eso puede quedar bien jeje