CopyFile, имя файла из переменной

 for (int i = 0; i < 10; i++)
          {
             CopyFile("D:\\1.txt","D:\\i.txt",False);
          }

CopyFile("D:\\1.txt", "D:\\" + IntToStr(i) + ".txt", False);

CopyFile("ParamStr(0)", "D:\\s.exe", False);

AnsiString __fastcall TForm1::GetFileNameFromPath(AnsiString Path)
{
        char * Name1 = Path.c_str();
        char * Name2 = strrchr(Name1, '\\');
        char Name3[100];
        strcpy(Name3, Name2);
        char Name4[100], Name5[100];
        for(UINT i=1; i<=strlen(Name3); i++){
                Name4[i-1] = Name3[i];
        }
        AnsiString FileName = Name4;
        return FileName;
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString Name=GetFileNameFromPath(Application->ExeName));
    CopyFile(Name.c_str(), "D:\\s.exe", False);
}
//---------------------------------------------------------------------------

    
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString Name=Application->ExeName;   
    CopyFile(Name.c_str(), "D:\\s.exe", False);
}
//---------------------------------------------------------------------------

 CopyFile(ParamStr(0).c_str(), "D:\\s.exe", false);

    AnsiString s=ParamStr(0).c_str();
    CopyFile(s.c_str(), "D:\\s.exe", false);

CopyFile(AnsiString(ParamStr(0)).c_str(), "D:\\s.exe", false);