RenameFile funzt nur halb

[glkgereon]

hi

ich hab mir ein miniprog geschrieben...
hier der qt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  files, temp:TStringList;
  i:integer;
begin
  files:=TStringList.Create;
  temp:=TStringList.Create;
  FindAllFiles(files,ExtractFileDir(Application.ExeName));
  for i:=0 to files.Count-1 do
    temp.Add(StringReplace(files[i],LabeledEdit1.Text,LabeledEdit2.Text,[rfReplaceAll]));
  for i:=0 to files.Count-1 do
    RenameFile(files[i],temp[i]);
end;

FindAllFiles is ausser CodeLib (Danke Sakura!)

wenn ich nu eingeb '0' und 'Hallo 0', dann funzt es
wenn ich dann aber sag '1' und 'Hallo 1', dann funzt es nicht mehr...

liegt das an der 0?
oder macht das prog das aus prinzip nur einmal mit?
oder wie?
wenn ich erst 1 mache, und dann 0 isses umgekehrt: 1 funzt und 0 nicht mehr

ausserdem findet er zum einen nicht alle dateien, aber er ersetzt auch nicht alle '0' bzw '1'

kann mir da irgendwer weiterhelfen?