Как показать отфильтрованную таблицу в новой вкладке

TTabSheet *page = new TTabSheet(Handle);
page->Caption = "Page" + IntToStr(PageControl1->PageCount+1);
page->PageControl = PageControl1;
PageControl1->ActivePageIndex = PageControl1->PageCount-1;

#include "Umain.h"
#include "Udoc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFmain *Fmain;
TList * LDoc;
 
 
//---------------------------------------------------------------------------
__fastcall TFmain::TFmain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TFmain::MNewClick(TObject *Sender)
{
 TFDoc * New = new TFDoc(this);//                вторая форма
 LDoc->Add(New);
 New->Caption = "Документ "+IntToStr(LDoc->Count);
}
//---------------------------------------------------------------------------
void __fastcall TFmain::FormCreate(TObject *Sender)
{
 LDoc = new TList();
}

TDBGrid *dbgrin; TTabSheet *page;
//       создание вкладки
page = new TTabSheet(Handle);
page->Caption = "Pagen" + IntToStr(PageControl1->PageCount+1);
page->PageControl = PageControl1;
PageControl1->ActivePageIndex = PageControl1->PageCount-1;
//       создание DBGrid 
dbgrin= new TDBGrid(this);
       dbgrin->DataSource=DataSource1;
dbgrin->Top = page->Top+y;//                   позиция
   dbgrin->Left = page->Left+x;
         dbgrin->Parent=Form1;

ADOTable1->Filter = "возраст < 55 AND возраст >5";

TADOTable *table;

fwrite(&pointcount, sizeof(int), 2, pFile);

void __fastcall WriteLogStr(AnsiString Str, AnsiString Usr)
{
  char mode[5] = "a+b";
  struct stat info;
  AnsiString LogFile = "Log\\" + Usr, DateLog = FormatDateTime("ddmmyyyy", Now());
  LogFile += DateLog + ".log";
  stat((LogFile).c_str(), &info);
  FILE* FFile = fopen(LogFile.c_str(), mode);
  if (FFile == NULL) {
    return;
  }
  fputs(Str.c_str(),FFile);               ////                            то есть тут 
  fclose(FFile);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOTable2->Active = true;ADOTable2->Open();
 ADOTable2->Filtered=false;
   ADOTable2->Filter = "возраст < 55 AND возраст >5";
   ADOTable2->Filtered=true;
//-------------------
TTabSheet *page = new TTabSheet(Handle);page->Caption = "вкладка " +IntToStr(pagen->TabIndex+1);
page->PageControl = PageControl1;
PageControl1->ActivePageIndex = PageControl1->PageCount-1;
//-------------
DataSource1->DataSet=ADOTable2;
}

void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
if(PageControl1->ActivePageIndex==0){
 DataSource1->DataSet=ADOTable1;
 }else  if(PageControl1->ActivePageIndex==1){DataSource1->DataSet=ADOTable2;
}else  if(PageControl1->ActivePageIndex==2){/*ADOTable3->Open();*/DataSource1->DataSet=ADOTable3;
 }
}