Не получается правильно переименовать файлы

[Janger]

В общем суть в чём, мне надо что бы программка переименовывала все txt файлы в формат 001,002,003, и т.д.
Я написал код:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TSearchRec;
  pics,i:integer;
begin
  pics:=0;
  if FindFirst(ExtractFilePath(Application.ExeName)+
  '\*.txt', faAnyFile, fs)=0 then
    repeat
      inc(pics);
    until
      FindNext(fs) <> 0;
  FindClose(fs);

ShowMessage('Этап 2');


if FindFirst(ExtractFilePath(Application.ExeName)+
'\*.txt', faAnyFile, fs)=0 then
repeat
for i:=1 to Pics do
begin
if Length(IntToStr(i))=1 then
RenameFile(ExtractFilePath(Application.ExeName)+
       fs.Name,ExtractFilePath(Application.ExeName)+
       '00'+IntToStr(i)+'.txt')
else if Length(IntToStr(i))=2 then
RenameFile(ExtractFilePath(Application.ExeName)+
       fs.Name,ExtractFilePath(Application.ExeName)+
       '0'+IntToStr(i)+'.txt')
else if Length(IntToStr(i))=3 then
RenameFile(ExtractFilePath(Application.ExeName)+
       fs.Name,ExtractFilePath(Application.ExeName)+
       IntToStr(i)+'.txt');
end;
until
FindNext(fs) <> 0;
FindClose(fs);
end;

Я понимаю что написал не очень красиво, но суть щас не о том...
В общем, он переименовывает всё, но есть небольшая проблема.
__________________________________
я создал 10 txt файлов, с именами: 1,2,3...10
и в них сохранил их порядковый номер.
И как программа переименовала:
Новое название файла: Старое название файла:
001 1
010 2
002 3
003 4
004 5
005 6
006 7
007 8
008 9
009 10
___________________________________ __________
Суть в том, что он после 1.txt начал переименовывать 10.txt, а не 2.txt...
Вопрос: Как это можно исправить?
Спасибо

[Stilet]

i:=1;
repeat
s:=IntToStr(i); while Length(s)<3 do s:='0'+s; inc(i);

RenameFile(ExtractFilePath(Application.ExeName)+
       fs.Name,ExtractFilePath(Application.ExeName)+
       s+'.txt');

until FindNext(fs) <> 0;
FindClose(fs);

Так подходит?

P.S. не пойму зачем тут цикл for, но выяснять не буду.

[eval]

s:=IntToStr(i); while Length(s)<3 do s:='0'+s; inc(i);

это тоже лишнее

[Аватар]

1. Если хочешь, чтобы упорядоченность по именам сохранилась, значит исходный список файлов нужно отсортировать и только после этого переименовывать
2. Только кажется, что среди файлов не будет уже файла, например, с именем 001.txt. Запросто может быть. Что случится при попытке переименования другого файла в 001.txt? А случится облом

[Janger]

Код только сократился, а проблема не решилась

[doktor255]

for i := 1 to 100 do
if fileExists(... + IntToStr(i) + '.txt') then
  RenameFile(... + IntToStr(i) + '.txt', ... + format('%.3u',[i]) + '.txt';

[eval]

все под формат, что за полумеры, еще сократится

[Stilet]

это тоже лишнее

Почему лишнее?
P.S. А! Все. понял. Согласен.