Десятичный разделитель и INI-файлы

DecimalSeparator = '.';

//------------------------------------------------------------------------------
// мое пространство имен.
namespace  IF_Space
{
  //--------------------------------------------------------------------------
  //<<< КЛАСС - ПЕРЕХВАТЧИК (ПРОИЗВОДНЫЙ ОТ TIniFile.). >>>
  // мой производный класс - ИниФайл.
  class  TIniFile  : public Inifiles::TIniFile
  {
  protected:
    // метод Чтения Ключа производного класса.
    virtual double __fastcall   ReadFloat( const AnsiString, const AnsiString, double )
    {
      // .........
    }
    // аналогично переопределяется и WriteFloat ...
    // .........
 
  public:
    // конструктор.
    virtual __fastcall  TIniFile( AnsiString  _str )
      : Inifiles::TIniFile( _str )
    {
    }
 
  };
  //--------------------------------------------------------------------------
}   //(мое пространство имен.)
//------------------------------------------------------------------------------
// если обращаются к ИниФайлу, обращаться к моему ИниФайлу из моего простр. имен.
#define    TIniFile    IF_Space::TIniFile

namespace My_IniFile
{
    class TIniFile : public Inifiles::TIniFile
    {
    public:
        virtual double __fastcall ReadFloat(const UnicodeString Section, const UnicodeString Name, double Default)
        {
            TCHAR dc = DecimalSeparator;
            DecimalSeparator = TCHAR(',');
            double result = Inifiles::TIniFile::ReadFloat(Section, Name, Default);
            DecimalSeparator = dc;
            return result;
        }
        virtual void __fastcall WriteFloat(const UnicodeString Section, const UnicodeString Name, double Value)
        {
            TCHAR dc = DecimalSeparator;
            DecimalSeparator = TCHAR(',');
            Inifiles::TIniFile::WriteFloat(Section, Name, Value);
            DecimalSeparator = dc;
        }
 
        __fastcall virtual TIniFile(const UnicodeString FileName)
            : Inifiles::TIniFile(FileName)
        {
        }
    };
 
}
#define TIniFile My_IniFile::TIniFile