Добавление строк в файл без дублирования уже существующих

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *MyFile = new TStringList; // Создаем стринглист
  MyFile->LoadFromFile("c:\\tmp\\test.txt"); //грузим твой файл с какими-то данными
  String s = "твоя строка с переменными"; //Формируем строку для записи в файл
  MyFile->Add(s); //Добавляем строку в стринглист
  MyFile->SaveToFile("c:\\tmp\\test.txt"); //сохраняем стринглист в тот же самый файл
  delete MyFile; //Удаляем стринглист
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)
{
         AnsiString file = "unbbridge.ns";
         AnsiString temp = Form1->EFLname->Text+ "\n" + Form1->EGroup->Text;
         TStringList *save = new TStringList;  // 1й TStringLis
         // записываемая строка
        save->Add(temp);
        if (FileExists(file) == false) // проверяем наличие файла
        {
            save->SaveToFile(file); // файл не найден, значит сохраняем как есть
        }
        else
        {   // если файл уже существует
            TStringList *hsave = new TStringList; // 2й TStringLis для существующего файла
            hsave->LoadFromFile(file); // загружаем существующий файл
            hsave->Add("***************************************"); // вроде как разделить добавляем
            hsave->Add("Rb="+(AnsiString)Upit+"\n"+"Rt="+(AnsiString)Rt);
            hsave->Text =save->Text+hsave->Text;  // к загруженному файлу добавляем новые записи
            hsave->SaveToFile(file); // сохраняем
            delete hsave; // чистим за собой
        }
        delete save; // чистим за собой
 
    }

#include <System.IOUtils.hpp>
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
    AnsiString file = ExtractFilePath(ParamStr(0)) + "unbbridge.ns";
    TFile::AppendAllText(file, Form1->EFLname->Text + "\n" + Form1->EGroup->Text + "\n***************************************\n");
}

hsave->Add("Rb="+(AnsiString)Upit+"\n"+"Rt="+(AnsiString)Rt);

void __fastcall TForm2::Button3Click(TObject *Sender)
{
    String file = ExtractFilePath(ParamStr(0)) + "unbbridge.ns";
    if(!FileExists(file))
        TFile::AppendAllText(file, String().sprintf(L"%s\n%s\n", Form1->EFLname->Text, Form1->EGroup->Text));
    else
        TFile::AppendAllText(file, String().sprintf(L"***************************************\nRb=%f\nRt=%f\n", Upit, Rt));
}

TFile::AppendAllText(file, String().sprintf(L"***************************************\nRb=%s\nRt=%s\n", (String)Upit, (String)Rt));

void __fastcall TForm2::Button3Click(TObject *Sender)
{
        AnsiString file = "unbbridge.ns";
 
        if (FileExists(file) == false) // проверяем наличие файла
        {       
            AnsiString temp = Form1->EFLname->Text+ "\n" + Form1->EGroup->Text;
             TStringList *save = new TStringList;  // 1й TStringLis
             // записываемая строка
            save->Add(temp);
            save->SaveToFile(file); // файл не найден, значит сохраняем как есть
            delete save; // чистим за собой
        }
        // если файл уже существует
        TStringList *hsave = new TStringList; // 2й TStringLis для существующего файла
        hsave->LoadFromFile(file); // загружаем существующий файл
        hsave->Add("***************************************"); // вроде как разделить добавляем
        hsave->Add("Rb="+(AnsiString)Upit+"\n"+"Rt="+(AnsiString)Rt);
        hsave->SaveToFile(file); // сохраняем
        delete hsave; // чистим за собой     
}

save->Clear();