Cчитывание и запись в файл

... 
list->Clear();
Memo1->Lines->Add("S * t=" +FloatToStr(result));
}
source->SaveToFile("C:\\tabl.rtf");
source = NULL;
list = NULL;
}

source->CloseToFile;

//---------------------------------------------------------------------------
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;
 
 source = NULL;
list = NULL;
Close();
}

UnicodeString FileName = "C:\\tabl.rtf"; // AnsiString для ВСВ6
source->LoadFromFile(FileName); // чтение

#include <memory>
...
std::auto_ptr<TStringList> list(new TStringList);

source->CloseToFile;