Сохранить данние с Edit1, Edit2, Edit3, Edit4 в .txt или .ini фаиль

void __fastcall TForm1::Button4Click(TObject *Sender)
{
 TStringList *list = new TStringList();
 
   list->Append(Edit1->Text);
   list->Append(Edit2->Text);
   list->Append(Edit3->Text);
   list->Append(Edit4->Text);
   list->SaveToFile("Расчёты.txt");
   delete list;
   list = NULL;
}

Label1->Caption = list->Strings[0];

void __fastcall TForm23::Button1Click(TObject *Sender)
{
    TStringList *str = new TStringList;
//тут немного по другому я сделаль но я думаю вданный момент один и тот же рузултат получается
   str->Append(LabeledEdit1->Text);
    str->Append(LabeledEdit2->Text);
    str->Append(LabeledEdit3->Text);
    str->Append(LabeledEdit4->Text);
    str->SaveToFile("c:\\1.txt");
    delete str;
    str = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm23::Button2Click(TObject *Sender)
{
TStringList *lst1 = new TStringList;
lst1->LoadFromFile("C:\\1.txt");
if(LabeledEdit5->Text==lst1->Strings[0]+" "+lst1->Strings[1])
  {
  Label1->Caption="Name: "+lst1->Strings[0];
  Label2->Caption="Surname: "+lst1->Strings[1];
  Label3->Caption="Personal number: "+lst1->Strings[2];
  Label4->Caption="Date of birthday: "+lst1->Strings[3];
 }
 
 
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
AnsiString Path = "F:/Narabotki/Шрифты/*.ttf";
TSearchRec sr;
int iAttributes = faAnyFile;
int done = FindFirst( Path, iAttributes, sr );
while(!done)
{
ListBox1->Items->Add(ChangeFileExt(sr.Name,""));
done = FindNext(sr);
}
FindClose(sr); 
}