답변감사 합니다.
하지만 아래내용은 예를 들어 설명 한 것이며 PageControlChang 생성에서 아래와 같이 바꾸어
다시 소스를 올리오니 다시한번 답변 부탁드립니다.
(여러페이지를 지원하는 에디트와 같은 프로그램을 만들려고함)
제일 큰 문제는 MainMenu에서 어떤명령이 실행될때(카피라든가 붙이기 명령등)페이지 변화에 따라
쉬트에 있는 Memo가 이벤트를 받아서 그명령에 작동 되어야 합니다.
감사 합니다.

: 질문내용)아래소스와 같이 TapSheet를 생성하고 예를들어 3개을 생성하면 마지막 발생Sheet에 있는
:  Memo는 정상적으로 포커스를 받는데,여기서 마지막Sheet를 지우면 이전Sheet(Tapsheet2에 Memo)는
:  에러가 발생하더라구요 해결책은 없는지 소스를 좀 가르처 주세요(제가 구현하고자 하는것은
:  TapSheet를 여러개 만들고 그안에 또한 여러개 Memeo장을 만들어 넣구요 다음으로 어떤명령 버튼을
:  누르면 Actve된 Memo에 그명령이 먹어야합니다, 단 명령은 하나밖에 없습니다.)
:  감사합니다.....

private:    // User declarations
        TMemo   *NewMemo;
//--------------------------
void __fastcall TForm1::BtnNewMemoClick(TObject *Sender) //생성
{
   TTabSheet *NewTabSheet;//TabSheet생성
   NewTabSheet =new TTabSheet(PageControl);
   NewTabSheet->TabVisible=true;
   NewTabSheet->Caption = "NewMemo" ;
  
                            //Memo생성
   NewMemo= new TMemo(NewTabSheet);
   //NewTabSheet->PageIndex=0;
   //PageControl->ActivePageIndex=2;
   NewMemo->Parent               = NewTabSheet;
   NewMemo->Align                = alClient;
}
//----------------------------------
void __fastcall TForm1::BtnPageCloseClick(TObject *Sender) //닫기
{
  PageControl->ActivePage->Free();
  if (PageControl->PageCount != 0)
  {
    PageControl->SelectNextPage(false);
  }
}
//------------------------------------
void Form1::PageControlChang(Tobject Sender); //페이지 변경
{
  if( PageControl->PageCount == 0 )
    exit;
  NewMemo->SetFocus();//예
  NewMemo->SeltAll();//예
}