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

void fun(...)
{
   TStringList *L = new TStringList();
   ...
   ...
   delete L;
}

void fun2(TRegExpr *Reg, ...)
{
   if(Reg != NULL)
   {
       Reg->Expression = "шаблон";
       Reg->Compile();
       if(Reg->Exec(Template->Text))
       {    
           //что-то делаем
       } 
   }
}

Reg->InputString = "";
Reg->Expression = "";

Reg->InputString = "";
Reg->Expression = "";

Reg->InputString = "";
Reg->Expression = "";

fun2(Reg);

TObject *AObj = new TObject;
AObj->Free(); // или delete AObj; память будет освобождена в обоих случаях

TStringList *list = new TStringList();
list->Add(L"New string");
delete list; // Как я понимаю, здесь освободится не вся память

class A : public TObject
{
    int i;
public:
    __fastcall A() : TObject()
    {
        i = 100;
    }
    virtual __fastcall ~A()
    {
        i = 0; // Поставь сюда точку останова, запусти код и нажми кнопку
    }
};
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList> Ls(new TStringList);
    // Ls->OwnsObjects = true;
    Ls->AddObject("Test", new A);
}

std::auto_ptr<Object>AObject(new Object);

{
    // верно
    TStringList *list = new TStringList();
    list->Add(L"New string");
    delete list;
}
 
{
    // верно
    std::auto_ptr<TStringList>list(new TStringList());
    list->Add(L"New string");
}
 
{
    // верно
    std::auto_ptr<TStringList>list(new TStringList());
    list->OwnsObjects = true;
    list->AddObject(L"New string", new TObject);
}
 
{
    // верно
    std::auto_ptr<TStringList>list(new TStringList());
    list->AddObject(L"New string", new TObject);
    list->Objects[0]->Free();
}
 
{
    // верно (особый пример для volvo)
    std::auto_ptr<TStringList>list(new TStringList());
    list->AddObject(L"New string", (TObject*)88888888);
}
 
{
    // НЕВЕРНО (утечка памяти)
    std::auto_ptr<TStringList>list(new TStringList());
    list->AddObject(L"New string", new TObject);
}