Помогите сделать ренеймер файлов

[hydrio]

Нужна ваша помощь в вопросе: есть куча файлов (картинки) с именами наподобии DauntlessEscort.jpg (DrasticRevelation.jpg, DenyReality.jpg, ...). Нужен ренеймер, который вставил бы в них пробелы перед прописными буквами, чтобы получились отдельные слова: Dauntless Escort.jpg, Drastic Revelation.jpg, Deny Reality.jpg, ...

Я нашёл исходник проги, которая заменяет буквы верхнего регистра во всех файлах на буквы нижнего:

procedure DoIt(const Dir: string);
var
 SR: TSearchRec;
begin
 SetCurrentDir(Dir);
 if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
 begin
   repeat
     if (SR.Name <> '.') and (SR.Name <> '..') then
     begin
       RenameFile(SR.Name, AnsiLowerCase(SR.Name));
       if (SR.Attr and faDirectory) <> 0 then
         DoIt(Dir + SR.Name + '\');
     end;
   until FindNext(SR) <> 0;
 FindClose(SR);
 end;
end;

Если можно его немного подправить для этой цели, будет здорово. Заранее спасибо.

[Serge_Bliznykov]

procedure DoIt(const Dir: string);
var
  NewName, FileExt: string;
  SR: TSearchRec;
  i: integer;
begin
  SetCurrentDir(Dir);
  if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Name <> '.') and (SR.Name <> '..') then
      begin
        if (SR.Attr and faDirectory) = 0 then
        begin
          FileExt := ExtractFileExt(SR.Name);
          if Length(SR.Name) > Length(FileExt) then
          begin
            NewName := SR.Name[1];
            for i := 2 to Length(SR.Name) - Length(FileExt) do
            begin
              if SR.Name[i] in ['A'..'Z'] then NewName := NewName + ' ';
              NewName := NewName + SR.Name[i];
            end;
            NewName := NewName + FileExt;
            if NewName <> SR.Name then
              RenameFile(SR.Name, NewName);
          end;
        end
        else
          DoIt(Dir + SR.Name + '\');
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

[hydrio]

Огромное спасибо! И ещё вопрос: как реализовать эту процедуру? Сколько я не бился, Delphi выдаёт ошибку: not enough actual parameters. Вся процедура правильная, а красным он выделяет строку DoIt в событии, в котором я пытаюсь реализовать процедуру.

[Serge_Bliznykov]

ну, здрасте...
а вы не забываете передавать исходную директорую в процедуру DoIt ?!
например, так:

DoIt('C:\Мои документы\');

[hydrio]

Да, всё работает отлично! Благодарю ещё раз, бился уже наверное неделю..