Ошибки, связанные с деструктором

if ( Butt_Acc != NULL )    delete    Butt_acc;
// .........

~TForm_Unit()    {};

TForm_Unit(
    TComponent*    Owner,
    const int      _top,
    const int      _left );

    GB = new    TGroupBox( Owner );
    GB->Parent = (TWinControl*)Owner;
    // заглавие.
    GB->Caption = ".....";
    // размеры.
    GB->Width = 360;
    GB->Height = 200;
    // положение.
    GB->Top = _top;
    GB->Left = _lrft;

class   TForm_Unit
{
private:
    // указатель на ГроупБокс - "Формульная Единица".
    TGroupBox*    GB;
    // *** Указатели на остальные динам. VCL-компоненты. ***
    // указатель на Клавишу - "Сохранить".
    TButton*    B_Save;
    // обработчик нажатия мышью на Клавишу "Сохранить".
    void __fastcall    B_SaveClick( TObject*    Sender );
    // и т.д. .........
 
    // *** Данные с которыми работает класс. ***
    // .........
 
public:
 
    // *** перегрузка операторов. ***
    // перегрузка оператора вставки.
    friend ostream&    operator<<( ostream&    stream, const TForm_Unit    fu );
    // перегрузка оператора извлечения.
    friend istream&    operator>>( istream&    stream, TForm_Unit&    fu );
 
};

// обработчик нажатия мышью на Клавишу "Сохранить".
void __fastcall    TForm_Unit::B_SaveClick( TObject*    Sender )
{
    // открыть выходной файловый поток.
    open_out_file( "out_file_name", 4 );    //(const int)
    // вывод структуры в выходной файловый поток.
    fout << *this;    //(!!!!!)
    fout << endl;
    // закрыть выходной файловый поток.
    fout.close();
}