Single Тип числа с плавающей запятой обладающий наименьшей вместимостью и точностью
StrToCurr Преобразует числовую строку в денежное выражение
Пример кода : Окружение вниз и вверх количества валюты
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;