Не сохраняются данные в файл из функции

void RecFromFile(){
TStringList *list=new TStringList;
    list->LoadFromFile(Records); //загрузка с файла
    try
    {
if (StrToInt(list[0][19])<=levels[level]) {
list[0][19]=IntToStr(levels[level]);
list[0][18]=InputBox("Рекорд!", "Введите Ваше имя", "noname");
list->SaveToFile(Records);
}
for (int i = 19; i > 0; i=i-2) {
if (list[0][i]>=list[0][i-2]) { AnsiString time,time1;
time=list[0][i-2];list[0][i-2]=list[0][i];list[0][i]=time;
time1=list[0][i-3];list[0][i-3]=list[0][i-1];list[0][i-1]=time1;
list->SaveToFile(Records);
if (list[0][1]<=list[0][3]) {
time=list[0][3];list[0][3]=list[0][1];list[0][1]=time;
time1=list[0][2];list[0][4]=list[0][2];list[0][4]=time1;
list->SaveToFile(Records);
return;
}
} else return;
}
  }
        catch (Exception *e) //обработка исключительных ситуаций
    {
        ShowMessage("Ошибка чтения файла!");
 
     }
    }

for (int i = 19; i > 0; i=i-2)
 {
    if (list[0][i] > = list[0][i-2]) 
      { 
         AnsiString time, time1;
         time=list[0][i-2];
         list[0][i-2] = list[0][i];
         list[0][i]=time;
         time1=list[0][i-3];
         list[0][i-3]=list[0][i-1];
         list[0][i-1]=time1;
         list->SaveToFile(Records);
         if (list[0][1]<=list[0][3]) 
          {
             time=list[0][3];list[0][3]=list[0][1];list[0][1]=time;
             time1=list[0][2];list[0][4]=list[0][2];list[0][4]=time1;
             list->SaveToFile(Records);
             return;
          }
      } 
    else return;