Convert a currency value to a string SysUtils unit
1  function CurrToStr ( Value : Currency ) : string;
2  function CurrToStr ( Value : Currency; const FormatSettings : TFormatSettings ) : string;
The CurrToStr function converts a currency Value into a displayable string.
The decimal point and digits are only displayed if non-zero. The CurrencyDecimals does not affect this function.
Unexpectedly, there is no currency symbol or thousands separator character used in the display.
Version 2 of this function is for use within threads. You furnish the FormatSettings record before invoking the call. It takes a local copy of global formatting variables that make the routine thread safe.
You can change the decimal point value by setting the DecimalSeparator character.

Use the CurrToStrF function for control over the formatting - especially with the TFloatFormat.ffCurrency formatting option.
Related commands
CurrToStrF Convert a currency value to a string with formatting
DecimalSeparator The character used to display the decimal point
StrToCurr Convert a number string into a currency value
Example code : Display currency values as strings
  amount1, amount2, amount3 : Currency;

  amount1 := 1.23;
  amount2 := 123456789.1234;

  ShowMessage('Amount1 = '+CurrToStr(amount1));
  ShowMessage('Amount2 = '+CurrToStr(amount2));
Show full unit code
   Amount1 = 1.23
   Amount2 = 123456789.1234