Как сохранять каждый новый файл с порядковым номером в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

var
  FilePath, FileName, Ext, NewFileName: string;
  Counter: Integer;
begin
  FilePath := 'C:MyFiles'; // Путь к файлу
  FileName := 'MyFile'; // Базовое имя файла
  Ext := '.txt'; // Расширение файла
  Counter := 1; // Счетчик

  repeat
    NewFileName := FilePath + FileName + IntToStr(Counter) + Ext; // Формирование имени файла с порядковым номером
    Inc(Counter); // Увеличение счетчика
  until not FileExists(NewFileName);

  // Здесь код для сохранения файла с именем NewFileName
end.