Doppelte Dateiendung entfernen

[gasty]

Also mein Stand bis jetzt ist, ich habe eine Komponente gefunden, die das Suchen für mich übernimmt
Nur der RenameFile Befehl scheint nicht zu funktionieren, er löscht die Datei einfach nur
Mein Code sieht jetzt so aus:

Delphi-Quellcode:

DIFileFinder1.Next;
sFileName := DIFileFinder1.SimpleName;
sFileName := StringReplace(sFileName, '.mp4', '', [rfReplaceAll, rfIgnoreCase]);
RenameFile(difilefinder1.FullName, sFileName);

//Edit:
Omg ok vergesst es
Habe nen relativen Pfad bei dem Befehl genommen, jetz liegen alle Dateien im Projekt-Verzeichnis.
Aber ohne .mp4

Danke für die Hilfe hier !

Gruß,
gasty