[delphi.com.ar]

Si lo quieres hacer desde el motor, dependerá del motor que utilizas.
Si lo quieres hacer desde el cliente, y tienes una versión superior a Delphi 5, puedes utilizar las funciones de redondeo: RoundTo, SimpleRoundTo o truncarlo con algo como:

Código Delphi [-]
 
function SimpleTrunc(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
  LFactor: Double;
begin
  LFactor := IntPower(10, ADigit);
  Result := Trunc(AValue / LFactor) * LFactor;
end;