var
  amount : Currency;

begin
  amount := 12;    // 12 долларов

  // Отображение со строкой валюты заданной по умолчанию
  ShowMessage('Amount = '+CurrToStrF(amount, ffCurrency, 0));

  // Отображение с валютой, показанной как слово после количества
  CurrencyString := 'долларов';
  CurrencyFormat := 4;    // 4 означает после с пробелом
  ShowMessage('Amount = '+CurrToStrF(amount, ffCurrency, 0));
end;