Dynamicznie - LoadFromFile - Access violation

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

#include <vcl.h>
#pragma hdrstop

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

int numer_zakladki = 2;

TForm1 * Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1( TComponent * Owner )
    : TForm( Owner )
{
}


void TForm1::DodajZakladke( TPageControl * APageControl )
{
    TTabSheet * Zakladka;
    Zakladka = new TTabSheet( PageControl1 );
    Zakladka->PageControl = PageControl1;
    Zakladka->Caption = "Nowy dokument";
    TRichEdit * RichEdit;
    RichEdit = new TRichEdit( Zakladka );
    RichEdit->Parent = Zakladka;
    RichEdit->Align = alClient;
    RichEdit->ScrollBars = ssBoth;
    RichEdit->BorderStyle = bsNone;
}

void TDocument::LoadFromFile( String AFileName )
{
    FileName = AFileName;
    RichEdit->Lines->LoadFromFile( FileName );
    Caption = ExtractFileName( FileName );
}




//---------------------------------------------------------------------------
void __fastcall TForm1::OpenExecute( TObject * Sender )
{
    if( this->OpenDialog1->Execute() )
    {
        TRichEdit * RichEdit;
        RichEdit->Lines->LoadFromFile( OpenDialog1->FileName );
        //TRichEdit *RichEdit;
        //TTabSheet *Zakladka;
        //RichEdit = new TRichEdit(Zakladka);
       
        //RichEdit->Parent = Zakladka;
        //RichEdit->Lines->LoadFromFile(OpenDialog1->FileName);
    };
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Save1Click( TObject * Sender )
{
    //SaveDialog1->Execute();
    //SaveDialog1->FileName;
    //TRichEdit *RichEdit;
    // Form1->RichEdit->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::New1Click( TObject * Sender )
{
    DodajZakladke( PageControl1 );
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Delete1Click( TObject * Sender )
{
    PageControl1->ActivePage->Free();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::TabSheet_1MouseDown( TObject * Sender, TMouseButton Button,
TShiftState Shift, int X, int Y )
{
    //TComboBox *pCB = dynamic_cast<TComboBox *>(Sender);
    //if (pCB)
    //PageControl1->ActivePage = dynamic_cast<TTabSheet *>(pCB->Items->Objects[pCB->ItemIndex]);
    //PageControl1->ActivePage;
   
    //   PageControl1->ActivePageIndex = TabSheet_1->PageIndex;
}
//---------------------------------------------------------------------------

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

#ifndef Edytor_tekstuH
#define Edytor_tekstuH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <System.Actions.hpp>
#include <Vcl.ActnList.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.Dialogs.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.ActnCtrls.hpp>
#include <Vcl.ActnMan.hpp>
#include <Vcl.ToolWin.hpp>
//---------------------------------------------------------------------------
class TForm1
    : public TForm
{
    __published: // IDE-managed Components
    TActionList * lista_akcji;
    TAction * Open;
    TAction * Save_as;
    TAction * Print;
    TMainMenu * MainMenu1;
    TMenuItem * File1;
    TMenuItem * Open1;
    TMenuItem * Save1;
    TOpenDialog * OpenDialog1;
    TSaveDialog * SaveDialog1;
    TMenuItem * Save2;
    TMenuItem * Print1;
    TPageControl * PageControl1;
    TMenuItem * New1;
    TMenuItem * End1;
    TMenuItem * Edit1;
    TMenuItem * Report1;
    TPopupMenu * PopupMenu1;
    TMenuItem * Delete1;
    TMenuItem * Usedlastly1;
    TStatusBar * StatusBar1;
    TStatusBar * StatusBar2;
    TToolBar * ToolBar1;
    TToolButton * ToolButton1;
    TToolButton * ToolButton2;
   
    void __fastcall OpenExecute( TObject * Sender );
    void __fastcall Save1Click( TObject * Sender );
    void __fastcall New1Click( TObject * Sender );
    void __fastcall Delete1Click( TObject * Sender );
    void __fastcall TabSheet_1MouseDown( TObject * Sender, TMouseButton Button, TShiftState Shift,
    int X, int Y );
   
private: // User declarations
public: // User declarations
    __fastcall TForm1( TComponent * Owner );
    void DodajZakladke( TPageControl * APageControl );
};



//---------------------------------------------------------------------------
extern PACKAGE TForm1 * Form1;

//---------------------------------------------------------------------------
#endif