Имя выходного файла Delphi XE

Как исправить, в этом коде, так что бы: программа сохраняла каждый новый файл с порядковым номером.

Сейчас сохраняет файл: New_f, новый New_New_f, следующий New_New_New_f

А нужно что бы сохраняла: New_f1, New_f2, New_f3 и так далее...

Code:

procedure WriteLines(AIndices: TDictionary<Integer, Integer>; const AFileName: string);
    const
      CRLF: AnsiString = sLineBreak;
    var
      LStr: AnsiString;
      LSrcFile: TextFile;
      LDstFile: TStream;
      LIdx: Integer;
      LOffset: Integer;
    begin
      LIdx := 0;
      AssignFile(LSrcFile, AFileName);
      Reset(LSrcFile);
      try
        LDstFile := TFileStream.Create(
      ExtractFilePath(AFileName) + 'New_' + ExtractFileName(AFileName), fmCreate);
        try
          while not Eof(LSrcFile) do begin
            Readln(LSrcFile, LStr);
            LOffset := AIndices[LIdx];
            LDstFile.Position := LOffset;
            LDstFile.WriteBuffer(LStr[1], Length(LStr) * SizeOf(LStr[1]));
            LDstFile.WriteBuffer(CRLF[1], Length(CRLF) * SizeOf(CRLF[1]));
            Inc(LIdx);
          end;
        finally
          LDstFile.Free;
        end;
      finally
        Close(LSrcFile);
        ShowMessage( 'Готово' );
      end;
    end;

 

сделай просто переменную счетчик и инкременть ее.