Vladimir13 позвольте спросить в каком месте он работает? если уж говорить о том что он 100% работает, то и писать его тоже надо полностью...
1. где у вас инициализируются переменные path, filename?
2. этот кусок кода вообще не рабочий т.к. при первом проходе переменная NewFileName вообще не задана, соотвтственно такого файла нет!

Цитата

while FileExists(NewFileName) do begin NewFileName := path +Filename+p+format; inc(i);

3. опять же по этому куску кода... Допустим (абстрактно) переменная NewFileName силами господа Бога, все же была инициализирована, и такой файл существует, то каким способом эта же переменная примет нужное значение??? i увеличится, но она же никак не влияет на название нового файла...

Так что скорее стирайте свою надпись о том что код рабочий... для самообразования советую посмотреть мой код, который должен работать!

а догадаться, что переменные задать надо никак? Ведь если кому непонятно, напишут об этом. А для самообразования я использую Архангельского.

Vladimir13 да бог с ними с переменными, хотя тоже это не есть хорошо, т.к. для того чтобы сохранить файл надо задавать их каждый раз что неочень удобно, а что вы можете сказать по 2 и 3 пункту?!