var
  account1, account2, account3 : Currency;
begin
  account1 := 123.456749;   // Слишком много десятичных чисел - будут округлены вниз
  account2 := 123.456750;   // Слишком много десятичных чисел - будут округлены вверх
  account3 := account1 + account2;

  ShowMessage('Account1 = '+CurrToStr(account1));
  ShowMessage('Account2 = '+CurrToStr(account2));
  ShowMessage('Account3 = '+CurrToStr(account3));
end;