Переименование файла на следующий по порядковому номеру

#include <vcl.h>
#pragma hdrstop
#include <IdGlobal.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double pepa2 ;
 double pepa3 ;
double pepa=1  ;
AnsiString kira;
AnsiString text;
//--------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 Memo2->Lines->Clear();
Memo2->Lines->LoadFromFile("C:\\ntw\\Win32\\Debug\\top.txt");
 
 
Edit1->Text=Memo2->Lines->Text;
pepa2=StrToInt(Edit1->Text);
 
 Memo3->Lines->Clear();
 Memo3->Lines->LoadFromFile("C:\\ntw\\Win32\\Debug\"+ FloatToStr(pepa2) +".txt");
 
pepa3=pepa2+pepa;
 
 
AnsiString FileName="C:\\ntw\\Win32\\Debug\" + FloatToStr(pepa2) + ".txt";
DeleteFile(FileName);
 
 kira=FloatToStr(pepa3);
 Memo1->Lines->Clear();
 Memo1->Lines->Text=Memo3->Lines->Text;
Memo1->Lines->SaveToFile("C:\\ntw\\Win32\\Debug\" + kira + ".txt");
 
Memo1->Lines->Clear();
Memo1->Lines->Text=kira;
Memo1->Lines->SaveToFile("C:\\ntw\\Win32\\Debug\\top.txt");
 
Application->Terminate();
 
}

#include <vcl.h>
#pragma hdrstop
#include <IdGlobal.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <IniFiles.hpp> // для создания ini files
TForm1 *Form1;
TIniFile *Ini  = new TIniFile(NULL);// файл инициализации программы
 
//--------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
int count = 
Ini->ReadInteger("Settings","Start",0);// здесь 0 если нет файла инициализации на диске то по дефолту будет загружен файл с именем 0(т.е. первый старт программы)
 
int new_count = count+1;// увеличиваю на 1.
 
RenameFile(IntToStr(count)+".txt",IntToStr(new_count)+".txt");// rename("oldname.txt", "newname.txt");
 
Ini->WriteInteger("Settings","Start",new_count);// и сохраняем новое имя файла для следующего старта.
 
Application->Terminate();
 
}
//---------------------------------------------------------------------------