Утечка памяти при вызове функции

    int get_msg_error( const UnicodeString &Source )
    {
        TJSONObject* JSONObject;
        TJSONObject* msg_object;
        TJSONArray* msg;
 
        TJSONValue* JSONValue = TJSONObject::ParseJSONValue( Source );
        if ( JSONValue != NULL )
        {
            JSONObject = static_cast<TJSONObject*>( JSONValue );
            TJSONPair* JSONPair = JSONObject->Get("msg");
            if( JSONPair != NULL )
            {
                msg = static_cast<TJSONArray*>( JSONPair->JsonValue );
                JSONValue = msg->Get(0);
                if ( JSONValue != NULL )
                {
                    msg_object = static_cast<TJSONObject*>( JSONPair->JsonValue );
                    return msg_object->Get("id")->JsonValue->Value().ToInt();
                }else
                    return -3;
            }else
                return -2;
        }else
            return -1;
    }

    for ( unsigned int i = 0; i < 100; ++i )
    {
        String response = IdHTTP1->Post("http://server.com/", PostData);
        
        if ( get_msg_error(response) > 0 )
        {
            ListBox1->Items->Add( "["+TimeToStr(Time())+"] Ошибка сервера: " + IntToStr(get_msg_error(response)));
            return;
        }
    }

TJSONObject *AJSONObjectMsg = static_cast<TJSONObject*>(AJSONValue2);
return AJSONObjectMsg->Get("id")->JsonValue->Value().ToInt();

// вариант 1
std::auto_ptr<TJSONValue>AJSONValuePtr(TJSONObject::ParseJSONValue(Source));
if (!AJSONValuePtr.get()) {
 
}
 
// вариант 2
// этот вариант опасен тем, что смарт-указатель удалит объект после выхода из блока,
// а сам указатель будет существовать
TJSONValue *AJSONValue = TJSONObject::ParseJSONValue(Source);
if (AJSONValue) {
    std::auto_ptr<TJSONValue>AJSONValuePtr(AJSONValue);
    
}