Программная очистка Edit

Edit1->Clear();

extern PACKAGE TForm1 *Form1;
extern bool AutoClearEditFlag; // Приписать внешний флаг

#include "Unit1.h"
TForm1 *Form1;
bool AutoClearEditFlag;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender) // Чекбокс настроек
{
AutoClearEditFlag = CheckBox1->Checked; // Пользователь тыкает чекбокс
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
if(CheckBox1->Checked) // По чекбоксу
  Edit1->Clear();
if(AutoClearEditFlag)  // По глобальному флагу
  Edit1->Clear();
}

class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TCheckBox *CheckBox1;
        TEdit *Edit1;
        TEdit *Edit2;
        void __fastcall CheckBox1Click(TObject *Sender);
        void __fastcall Edit1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        bool AutoClearEditFlag; // Вот сюда вот перекочевало объявление флага как публичного члена формы
                                // Но обращаться к нему теперь вне Form1 соответственно нужно через Form1->AutoClearEditFlag
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//extern bool AutoClearEditFlag;

TForm1 *Form1;
//bool AutoClearEditFlag;