Переименовать файлы при копировании

[Taras2018]

Код, который по списку, находящемуся в ListBox копирует файлы в выбранную пользователем папку. В списке файлов могут находиться файлы с одинаковыми именами, но находящиеся в разных директориях.

Как реализовать такой алгоритм >>> Если файл уже существует в целевой папке, то при копировании добавить к имени файла символ "1"?

Копирование реализовано так >>>

procedure TForm1.Button5Click(Sender: TObject);
    var
      i   : integer;
      dir : string;
    begin
      if SelectDirectory ('Выбор папки, Куда копировать:', 'D:\,C:\', dir) then
        begin

          for i := 0 to ListBox1.Items.Count-1 do
            begin
              if FileExists (ListBox1.Items.Strings[i]) then
                CopyFile (PChar(ListBox1.Items.Strings[i]), PChar(dir + '\' + ExtractFileName (ListBox1.Items.Strings[i])), false);

            end;
        end;
    end;

[Sciv]

if FileExists (ListBox1.Items.Strings[i]) then
begin
  i_FileNumber := 0;
  While FileExists (dir + '\' + ExtractFileName (ListBox1.Items.Strings[i])) do
    inc(i_FileNumber);
  if i_FileNumber > 0 then
    CopyFile (PChar(ListBox1.Items.Strings[i]), PChar(dir + '\' + ExtractFileName (ListBox1.Items.Strings[i]) + IntToStr(i_FileNumber )), false)
  else
    CopyFile (PChar(ListBox1.Items.Strings[i]), PChar(dir + '\' + ExtractFileName (ListBox1.Items.Strings[i])), false)
end;

[Taras2018]

Сообщение от Sciv

if FileExists (ListBox1.Items.Strings[i]) then
begin
  i_FileNumber := 0;
  While FileExists (dir + '\' + ExtractFileName (ListBox1.Items.Strings[i])) do
    inc(i_FileNumber);
  if i_FileNumber > 0 then
    CopyFile (PChar(ListBox1.Items.Strings[i]), PChar(dir + '\' + ExtractFileName (ListBox1.Items.Strings[i]) + IntToStr(i_FileNumber )), false)
  else
    CopyFile (PChar(ListBox1.Items.Strings[i]), PChar(dir + '\' + ExtractFileName (ListBox1.Items.Strings[i])), false)
end;

Благодарю, разобрался.