Delphi - No redendear decimales

Hola Amigos del Mundo Delphi, Estoy haciendo una aplicacion para facturacion pero existe un pequeño problema ... se lo describo :

multiplico:

Var
var1,var2:Real;

Ejemplo1
var1:= 12.30 * 19.13 = 235.299
cuando haces formatfloat('#,###,###.00',var1) te devuelve 235.30
Quiero que me devuelva 235.29.

Ejemplo2
var2:= 15.30 * 15.22 Esto es igual a 232.866
cuando haces formatfloat('#,###,###.00',var2); te devuelva 232.87
Quiero que me devuelva 232.86

Alguien puede ayudarme, me super urge, ya que por estos centavitos el cliente no acepta la aplicacion .... Muchas Gracias

Mario Flores Fierro.

// a la inversa del compilador en 0.00:
formatfloat('#,###,##.00',var1-0.01)

Prueba a ver asi:

varSinredondeo := (trunc((float1 * float2)*100))/100 ;

Ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
varSinredondeo, float1, float2 : real;
begin
float1 := 15.30;
float2 := 15.22;
varSinredondeo := (trunc((float1 * float2)*100))/100 ;
ShowMessage(FloatToStr(varSinredondeo));
end;

Resultado que estoy viendo: 232,86;

Dime si te sirve.
Suerte. TDS.