Утечка памяти Delphi TJSONTextReader

Для чего-то, работающего на C ++ 98, вы можете использовать команду value_initialized Boost: ( live example )

#include 
...
struct Money
{
    boost::value_initialized amountP, amountG, totalChange;
    boost::value_initialized twenty, ten, five, one, change;
    boost::value_initialized quarter, dime, nickel, penny;

    void foo();
    Money()  {/*every member is 0*/}
};