Thanks. I made a new control that uses the system configuration of currency if anyone is interested.
I'm new to controls, so if you see a problem with this let me know.
unit UniCurrencyEdit; interface uses SysUtils, Classes, uniGUIBaseClasses, uniGUIClasses, uniEdit; type TUniCurrencyEdit = class(TUniFormattedNumberEdit) private protected { Protected declarations } public constructor Create(AOwner: TComponent); override; published end; procedure Register; implementation constructor TUniCurrencyEdit.Create(AOwner: TComponent); begin inherited; case (formatsettings.CurrencyFormat) of 0: begin FormattedInput.CurrencySignPos := cpsLeft; FormattedInput.CurrencySignSpace := crsNone; end; 1: begin FormattedInput.CurrencySignPos := cpsRight; FormattedInput.CurrencySignSpace := crsNone; end; 2: begin FormattedInput.CurrencySignPos := cpsLeft; FormattedInput.CurrencySignSpace := crsAvailable; end; 3: begin FormattedInput.CurrencySignPos := cpsRight; FormattedInput.CurrencySignSpace := crsAvailable; end; end; FormattedInput.ShowCurrencySign := True; FormattedInput.CurrencySign := FormatSettings.CurrencyString; ThousandSeparator := FormatSettings.ThousandSeparator; DecimalSeparator := FormatSettings.DecimalSeparator; Alignment := taRightJustify; end; procedure Register; begin RegisterComponents('UniAddOns', [TUniCurrencyEdit]); end; end.