Переименовать файлы в папке

[FakeGen]

Здравствуйте.
Столкнулся с проблемой.
Вообщем нужна программа:
Задаешь название папки, и она все файлы переименовывает в 1, 2, 3, 4 с расширением .jpg.

Помогите пожалуйста

[LSpirit]

название папки через что задаешь?

[FakeGen]

Через поле, допустим Edit1

[LSpirit]

лучше, конечно, диалог, но да ладно)
напишу код в общем, переменные выберешь сам:

findFirst(папка,переменная типа TSearchRec);
repeat
  renameFile(папка+(переменная типа TSearchRec).name,папка+новое имя);
 until findnext(TSearchRec)=0;

[LSpirit]

могу написать точнее, если так неясно)

[FakeGen]

Нет, совсем не то.

Нужно чтобы программа переименовывала файлы которые находятся в папке.
Допустим там есть 5 файлов.
Нужно чтобы программа переименовала файлы в 1.jpg, 2.jpg итд.

[LSpirit]

var
 m: TSearchRec;
 s: string;
 i: integer;

...

допустим, s:='C:\pictures\';//название папки
FindFirst(s,m);//поиск первого файла в папке
i:=1;
repeat
 begin
  RenameFile(s+m.name,s+IntToStr(i)+'.jpg';//переименование найденного файла
  i:=i+1;
 end
  until findNext(m)=0;//поиск следующего, если не найдет - цикл закончится

[FakeGen]

При компиляции ругается.
Incompatible types: 'Integer' and 'TSearchRec'

А так спасибо

[LSpirit]

на каком месте ругается?

[FakeGen]

Ругается на строчку:
FindFirst(s,m);

S:=Sdt1.text;