Как уменьшить размер потребляемой памяти?

//---------------------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner)
    : TForm(Owner)
{
    Ini = new TIniFile( ExtractFilePath( Application->ExeName ) + "settings.ini" );   //Ñîçäàëè îáüåêò êëàññà TIniFile
    Ini2 = new TIniFile( ExtractFilePath( Application->ExeName ) + "spisok.ini" );   //Ñîçäàëè îáüåêò êëàññà TIniFile
    reg = new TRegistry;           // Ñîçäàíèå ýêçåìïëÿðà êëàññà TRegistry
    ToAvt = new TStringList;      // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
    ToDel = new TStringList;     // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
    ToExt = new TStringList;    // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
    Passw = new TStringList;   // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
}
//---------------------------------------------------------------------------
__fastcall TMain::~TMain( ) {
    delete Ini;          //îñâîáîæäàåì ïàìÿòü
    delete Ini2;        //îñâîáîæäàåì ïàìÿòü
    delete reg;      //îñâîáîæäàåì ïàìÿòü
    delete ToDel;      //îñâîáîæäàåì ïàìÿòü
    delete ToExt;     //îñâîáîæäàåì ïàìÿòü
    delete ToAvt;   //îñâîáîæäàåì ïàìÿòü
    delete Passw;  //îñâîáîæäàåì ïàìÿòü
}
//---------------------------------------------------------------------------

ToAvt = new TStringList;
// do something
delete ToAvt;
ToDel = new TStringList;   
// do something
delete ToDel;

ProcessReduceMemory();