Arrondir une valeur avec un nombre de décimale prédéfini

function Rounder( var Value: Double; Decimals: Integer): Double;
var
j: Integer;
A: Double;
begin
A:=1;
Case Decimals of
0 : A:=1;
1 : A:=10;
else
for j:=1 to Decimals do
A := A * 10;
end;
Result:=Int((Value * A) + 0.5) / A;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
value: Double;
begin
value := 23.56784;
file://Result is 23.57
Label1.Caption := FloatToStr(Rounder(value, 2));
end;