[dec]

Hola,

Pues a lo mejor la función "RoundTo()" de la unidad "Math" te apaña:

Código Delphi [-]
var
  dec: Double;
begin
  dec := 91.2345;
  dec := RoundTo(dec, -2);

  // Muestra 1,23
  ShowMessage( FloatToStr(dec) );
end;