[defcon1_es]

Se me olvidó decirte que puedes crearte una función de este estilo:

function Redondear_a_2_decimales(Valor: Real): Real;
begin
// movemos la come decimal 2 posiciones e ignoramos los decimales restantes
  Valor := Round(Valor * 100); // o también Trunc(Valor*100);
// recuperamos los decimales que queremos
  Valor := Valor / 100;
  Result := Valor;
end;