Builder C++ TabControl

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

int dokument = 1;

TForm1 * Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1( TComponent * Owner )
    : TForm( Owner )
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click( TObject * Sender )
{
    String dok = IntToStr( dokument );
   
    SaveDialog1->FileName = "NOWY " + dok;
   
    Memo1->Lines->SaveToFile( SaveDialog1->FileName );
   
    TabControl1->Tabs->Add( OpenDialog1->FileName );
   
    dokument++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click( TObject * Sender )
{
    if( OpenDialog1->Execute() )
    {
        TabControl1->Tabs->Add( OpenDialog1->FileName );
        Memo1->Lines->LoadFromFile( OpenDialog1->FileName );
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TabControl1Change( TObject * Sender )
{
    Memo1->Lines->LoadFromFile( TabControl1->Tabs->Strings[ TabControl1->TabIndex ] );
}
//---------------------------------------------------------------------------