[[coso]]

... o bien esto

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

esto si que creo que es lo que querias. saludos.