Das ist doch viel zu umständlich und fehleranfällig. Ich würde folgendes machen:
1. Versammle alle benötigten Dateinamen incl. Pfad in einer Stringliste.
2. Iteriere durch die Stringliste und benenne die Pfade um. Das Ergebnis der Umbenennung speicherst du in einer lokalen Variablen.
3. Veschiebe dabei die Dateien durch
SysUtils.RenameFile.
RenameFile mit einem neuen Pfad verschiebt die Datei. Physikalisch wird dabei nur dann wirklich verschoben, wenn der neue Pfad auf einer anderen Partition liegt als der alte. Ansonsten wird einfach nur der Eintrag im Inhaltsverzeichnis der Partition geändert.