Пишу свою библиотеку C++

#include "_zests.h"
#include "_array.h"
using namespace std;
 
int main(){
  z::r();// включаем кирилицу
  
  Args ar(17,55,"ddd",0.5,"VVVV");// создаём объект аргументов с параметрами
  cout<<ar;// смотрим что у нас в аргументах
  cout<<ar.Take(2)<<endl;// берём 2 элемент
  cout<<ar;// опять смотрим что у нас в аргументах
 
  z::p();// включаем ожидание\паузу
}

class Args {
...
ANY Take(INT_L index=0){
        ANY res;
        if(apr->Size()){
            //ANY *any=(ANY*)apr->Take(index);
            //res=*any;delete any;
            POINTER pnt=apr->Take(index);
            res=*(ANY*)pnt;
            delete static_cast<ANY*>(pnt);
        }
        return res;
    }
...
}

using namespace std;
#include "_interface.hpp"
 
int main(){
  i::r();
  
  STRING st;
  st=(STRING)445538;
  cout<<st;
  
}

POINTER(){pnt=new dTYPE;}

template<typename dTYPE, typename = t::Enable<t::isInteger<dTYPE>,dTYPE>>
    STRING(dTYPE val){
        POINTER<CHARS> lts;
        sprintf(*lts,"%d",val);lts.Size(true);*this=*lts;
    }
template<typename dTYPE, typename = t::Enable<t::isFloating<dTYPE>,dTYPE>>
    STRING(dTYPE val){
        POINTER<CHARS> lts;
        sprintf(*lts,"%f",val);lts.Size(true);*this=*lts;
    }

using namespace std;
#include "_interface.hpp"
#include "_array.hpp"
 
int main(){
  Args arg("ddd",77,0.88,"uuu");
  cout<<arg;
  cout<<arg[1]<<' '<<arg[3]<<endl;
  cout<<arg.Take(2)<<endl;// без вызова этого метода всё работает нормально
  cout<<arg;
}

using namespace std;
#include "_interface.hpp"
 
int main(){
  ANY an;
  an="проверка";
  cout<<an<<' '<<an.Type()<<' '<<an.Size();
  an="123";// ошибка возникает при удалении "проверка", перед тем как присвоить новое значение "123"
  cout<<an<<' '<<an.Type()<<' '<<an.Size();
}

ANY& operator=(CHARS chs){
        Clear();
        INT_W sz=z::Lsize(chs)+1;
        CHARS lts=new LETTER[sz];
        ADDRESS adr1=(ADDRESS)lts,adr2=(ADDRESS)chs;
        z::Copy(adr1,adr2,sz);LINK::Init(lts);
        return *this;
    }

void Clear(){
        if(pnt){
            switch(idt){
                case 1: delete static_cast<LOGIC*>(pnt);break;
                case 2: delete static_cast<LETTER*>(pnt);break;
                case 3: delete static_cast<RANGE*>(pnt);break;
                case 4: delete static_cast<BYTE*>(pnt);break;
                case 5: delete static_cast<INT_S*>(pnt);break;
                case 6: delete static_cast<INT_W*>(pnt);break;
                case 7: delete static_cast<INT_M*>(pnt);break;
                case 8: delete static_cast<INT_L*>(pnt);break;
                case 9: delete static_cast<INT_T*>(pnt);break;
                case 10:delete static_cast<INT_B*>(pnt);break;
                case 11:delete static_cast<FLOAT*>(pnt);break;
                case 12:delete static_cast<DOUBLE*>(pnt);break;
                case 13:delete static_cast<ADDRESS*>(pnt);break;
                case 14:delete static_cast<LETTER*>(pnt);break;
                case 15:delete static_cast<STRING*>(pnt);break;
                case 16:delete static_cast<DATETIME*>(pnt);break;
                default:delete static_cast<LINK*>(pnt);
            }
            LINK::Clear();
        }
    }