Source position: fpscurrency.pas line 23
procedure RegisterCurrencies(
AList: TStrings;
AReplace: Boolean
);