Чтение и запись в файл

[Dycek]

выдает ошибку при открытии файла... с чем может быть связано?
те программа запускается, считает первую кнопку, а на второй стопарится на строчке чтения файла((((
подскажите, что не так?

void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringList *source=new TStringList;
source->LoadFromFile("С:\\tabl.rtf");// чтение
TStringList *list = new TStringList;
list->Delimiter = ',';
for(int i=0; i<source->Count; i++){
list->DelimitedText = source->Strings[i];
// теперь каждая строчка будет разбита и будет находится в
//list->Strings[0] = первое значение
//list->Strings[1] = второе значение
//list->Strings[2] = третье значение
//list->Strings[3] = четвертое значение

// тело основной программы, действия над "площадью",
float result=StrToFloat(list->Strings[3])*StrToInt(iz_t);
list->Strings[4]=FormatFloat("0.000", result);
// полученный результат записываете назад в source->Strings[i]

list->Clear();
Memo1->Lines->Add("S * t=" +FloatToStr(result));
}
source->SaveToFile("C:\\tabl.rtf");
delete []list;
std::cout << "After deleting: " << list << std::endl;
delete []source;
std::cout << "After deleting: " << source << std::endl;

source = NULL;
list = NULL;
Close();
}