[[coso]]

Hola, si usas Round

Código Delphi [-]
function TForm1.TruncarDecimales (parametro: Double): Double;
begin
  Result := (Round(parametro * 100)) / 100;
end;

solucionado