Var
_NewPath: string;

if MakeFolders then
      begin
        _NewPath := Format('%_Name_%d', [_FilePath, i]);
        ForceDirectories(_NewPath);
      end
      else

'%s_Name_%d'

if MakeFolders then
          begin
            _NewPath := Format(Edit1.Text, [_FilePath, i]);
            ForceDirectories(_NewPath);
          end
          else