Вылетает при завершении

//------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString ZnachCell;
int KorRow, KorCol;
//------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
int i;
AnsiString NLF, DateNau;
DateNau = DateTimeToStr(Date());
for (i=1;i<13;i++)
{
NLF = IntToStr(i)+"2007.txt";
StringGrid1->Cols->LoadFromFile(NLF);
}
StringGrid1->Cols[0]->LoadFromFile("ColDDR.txt");
StringGrid1->ColWidths[0]=210;
for (i=1;i<15;i++)
StringGrid1->Cells[0]= i;
StringGrid1->Rows[5]->Text = "------------------------------------------";
for (i=0;i<15;i++)
StringGrid1->Cells[5] = "-----------------------------------------------";
}
//------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
ZnachCell = StringGrid1 ->Cells [ACol ][ARow ];
KorCol = ACol;
KorRow = ARow;
EditTextCell->Text = ZnachCell;
}
//------------------------------------------------------------------------
void __fastcall TForm1::BtnPrimClick(TObject *Sender)
{
StringGrid1 ->Cells [KorCol][KorRow] = EditTextCell->Text;
}
//------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
int i;
AnsiString NLF;
for (i=1;i<13;i++)
{
NLF = IntToStr(i)+"2007.txt";
StringGrid1->Cols->SaveToFile(NLF);
}
//------------------------------------------------------------------------