Mam następujący kod, aby zaokrąglić walutę

function MyRound(value :currency) : integer;

begin
  if value > 0 then
    result := Trunc(value + 0.5)
  else
    result := Trunc(value - 0.5);
end;

jak na razie działało dobrze, moim problemem jest teraz, gdy chcę zaokrąglić walutę999999989000.40 podaje wartość ujemną, ponieważ Truc przyjmuje int, a MyRound zwraca int.

Moimi możliwymi rozwiązaniami jest konwersja waluty na łańcuch i pobranie ciągu wcześniej. i przekonwertuj ciąg na walutę. Czy to właściwe podejście? Jestem nowy w delpi, więc pls pomóż mi.