创建文件2

var
  Buf: TStringList;
  i: Integer;
  S, s1, sName, sExt: AnsiString;
begin
  sExt := '.txt';
  sName := 'NewFile';
  s := sName + sExt;
  i := 0;
  try
    Buf := TStringList.Create;
    if FileExists(s) then
    begin
      repeat
        Inc(i);
        s1 := Format('%s%d%s', [sName+'(', i, ')'+sExt]);
      until
        not FileExists(s1, True);
      Buf.SaveToFile(s1);
    end
    else
      Buf.SaveToFile(s);
  finally
    FreeAndNil(Buf);
  end;
end;