Проблемы с TOleContainer

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TOleContainer *mas  [2];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
// Сохраняем и удаляем
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Form1->OleContainer1->SaveToFile("1.doc");
   Form1->OleContainer2->SaveToFile("2.doc");
   Form1->OleContainer3->SaveToFile("3.doc");
   Form1->OleContainer1->Free();
   Form1->OleContainer2->Free();
   Form1->OleContainer3->Free();
}
//---------------------------------------------------------------------------
// Создаем и загружаем
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   for (int i=0; i<3; i++) {
         mas = new TOleContainer(Form1);
         mas->DoubleBuffered = True;
         mas->Parent         = Form1;
         mas->Left           = 150*(i+1);
         mas->Top            = 50;
         mas->Visible        = True;
         mas->AllowActiveDoc = False;
         mas->AllowInPlace   = False;
         mas->BorderStyle    = bsNone;
         mas->CreateObject("Word.Document.8",True);
         mas->LoadFromFile(IntToStr(i+1)+".doc");
        }

}
//---------------------------------------------------------------------------