*.exe datei aus Delphi heraus umbenennen

[Vukloc]

Hallo hänge da an einem kleinen Problem und zwar möchste ich nach einer Art Update diverse Dateien umbenennen(damit sie besser zum Projektnamen passen) darunter auch eine *.exe.
Die Textdateien etc sind kein Problem, jedoch versagt die "Routine" bei allen Arten von *.exe Dateien, jetzt ist meine Frage kann man das irgendwie umgehen ?

Hier mal der Codeschnipsel zum umbenennen der Datei

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Dir: String;
  myExePath : String;
  myApplication : String;
begin
  myExePath := ExtractFilePath(Application.ExeName);
  myApplication := myExePath + 'Projekt.exe';

  if SelectDirectory('Bitte das Projekt XXXXXX Verzeichnis auswählen', '', Dir)
  then
  begin
    RenameFile(dir+'\Daten\log.txt', dir+'\Daten\log.old');
    RenameFile(dir+'\projekt.exe', dir+'\projektV1.exe');
  end;
  
end;

Vielen Dank für eure Hilfe