Arredondando valores

Procedure RoundDecimal(var AValue: double; Const ADecimal: integer);
var
strValue : string;
begin
strValue := FloatToStrF(AValue,ffFixed,18,ADecimal);
AValue := StrToFloat(strValue);
end;