Не переименовываются файлы.Почему?

[zotox]

код:

procedure TForm1.FindFile(Dir:String);
var
SR:TSearchRec;
FindRes:Integer;
begin
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory) and
((SR.Name='.')or(SR.Name='..')) then
begin
FindRes:=FindNext(SR);
Continue;
end;

if ((SR.Attr and faDirectory)=faDirectory) then {åñëè íàéäåí êàòàëîã, òî}
begin
FindFile(Dir+SR.Name+'\');
FindRes:=FindNext(SR);
Continue;
end;

Memo1.Lines.Add(SR.Name);
FindRes:=FindNext(SR);
end;
FindClose(SR);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 stroka,stroka2:string;
begin
 memo1.Lines.Text:='';
 FindFile(Edit1.Text);
 for i:=0 to memo1.Lines.Count-1 do
  begin
   stroka:=memo1.Lines[i];
   stroka2:=ChangeFileExt(stroka, edit2.Text);
   RenameFile(stroka, stroka2);
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.Text:='C:\Windows\';
end;


end.

Помогите.В чем моя ошибка?

[Stilet]

Поставь breakpoint на строку где вызывается переименование и посмотри чему равны ее параметры. Если я не ошибаюсь они работают корректно только когда в них обеих указан полный путь.

[XuTpbIu]

ой как тебе интересно знать что ппц) так интересно убить папку винды что ли?))))
Я сделал так:

   if FileExists(Edit1.Text+stroka) then
   begin
	   stroka2:=ChangeFileExt(Edit1.Text+stroka, edit2.Text);
	   RenameFile(Edit1.Text + stroka, stroka2)
   end;

[zotox]

Stilet все ок! спасибо! да работает функция когда указаны полные пути файлов
XuTpbIu аналогично! спасибо!