1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function Runden (const Betrag: extended; const Stellen: integer): extended;
var
  Faktor, 
  Wert: extended;
begin
  Faktor := IntPower (10, Stellen);

  if Betrag > 0 then
    Wert := int (Betrag * Faktor + 0.5)
  else
    Wert := int (Betrag * Faktor - 0.5);

  Wert := Wert / Faktor;
  Result   := Wert;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

x := Runden (19.4949, 2);
// x ergibt 19.49

x := Runden (19.4949, 3);
// x ergibt 19.495

x := Runden (19.4950, 2)
// x ergibt 19.5