Шаблон класса динамического массива

class TStudent{
  public:
    AnsiString Fam, Name, Otc, Fac;
    TDate BDate;
    TStudent(AnsiString iFam, AnsiString iName, AnsiString iOtc, AnsiString iFac, TDate iDate);
    AnsiString GetFIO();
};
 
TStudent::TStudent( AnsiString iFam,  AnsiString iName, AnsiString iOtc, AnsiString iFac, TDate iDate){
  Name = iName;
  Fam = iFam;
  Otc = iOtc;
  Fac  = iFac;
  BDate = iDate;
}
 
AnsiString TStudent::GetFIO(){
  return Fam + ' ' + Name.SubString(1, 1) + ". " + Otc.SubString(1,1) + '.';
}
 
template <class C>
class DArray {
  public:
    C** Items;
    int Count;
    DArray(){
      Count = 0;
      Items = new C*[Count];
    };
    int Add(C* Item){
      Items = (C**)ReallocMemory(Items, (++Count) * sizeof(C));
      Items[Count - 1] = Item;
    }
    C& operator [](int Index){
      return Items[Index];
    }
    C& operator =(C** Els){
      Items = (C**)ReallocMemory(Items, (Els->Count) * sizeof(C));
      for (int i = 0; i < Els->Count; i++)
        Items[i] = Els[i];
    }
};
 
typedef DArray<TStudent> TStudGroup;
 
TForm1 *Form1;
TStudGroup *StudGroup;
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TStudent* Student;
  StudGroup = new TStudGroup;
  Student = new TStudent("Иванов", "Иван", "Иванович", "Математический", StrToDate("06.01.1988"));
  StudGroup->Add(Student);           
  ShowMessage(StudGroup[0]->GetFIO());
}
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete[] StudGroup;
}