Como puedo aplicar un descuento con excepción

[esimon]

Hola saludo para todos los usuarios de este marabillo Club.......

La preguenta es la siguiente: como puedo hacer para que los sueldo que sean mayor de 112,700.00, igualarlo a dicha cantidad y aplicarle un descuento de un 3.01%, claro incluyendo los que estan por debajo de esa cantidad.
estoy usando delphi 7 y accesse.
estuve haciendo esto

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

y me da los erroes siguientes.

[Error] Un_Reporte_de_Nomina.pas(119): Incompatible types
[Error] Un_Reporte_de_Nomina.pas(120): ':=' expected but '=' found
[Error] Un_Reporte_de_Nomina.pas(121): Missing operator or semicolon
[Error] Un_Reporte_de_Nomina.pas(124): Statement expected but 'PROCEDURE' found
[Fatal Error] Prj_NominaExterior.dpr(8): Could not compile used unit 'Un_Reporte_de_Nomina.pas'

gracias