Aclaremos que CurrencyDecimals no es una función, es una variable que se carga en el initialization de la unit SysUtils.
Lo que tu quieres, puedes conseguirlo de esta manera:
Código:
GetLocaleStr(GetThreadLocale, LOCALE_IDIGITS, '0')
(No se si en alguna versión superior al Delphi 5, ha aparecido una nueva variable con este valor)
Saludos!