Открытие и сохранение файла

void __fastcall TForm1::N3Click(TObject *Sender)
{
   TTabSheet* TabSheet1 = new TTabSheet(PageControl1);
TabSheet1->PageControl= PageControl1;
TabSheet1->Caption="New"+IntToStr(i);
 
TMemo * Memo1= new TMemo(TabSheet1);
Memo1->Parent= TabSheet1;
 
Memo1->Align=alClient;
 
i++;
N5->Enabled=true;
N6->Enabled=true;
 
}

void __fastcall TForm1::N3Click(TObject *Sender)
{
    TTabSheet* TabSheet1 = new TTabSheet(PageControl1);
    TabSheet1->PageControl = PageControl1;
    TabSheet1->Caption = "New" + IntToStr(i);
 
    TMemo * Memo1 = new TMemo(TabSheet1);
    Memo1->Name = "Memo"; // <--- Добавляешь имя
    Memo1->Parent = TabSheet1;
 
    Memo1->Align = alClient;
 
    i++;
    N5->Enabled=true;
    N6->Enabled=true;
 
}
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TTabSheet *ts = PageControl1->Pages[0]; // на нужной странице PageControl-а
    TMemo *memo = dynamic_cast<TMemo*>(ts->FindComponent("Memo")); // ищешь Memo
    if (memo)
    {
        memo->Lines->SaveToFile("D:\\test\\memo.txt"); // и работаешь с ним...
    }
}