Doppelte Dateiendung entfernen

[gasty]

Hallo,
mein Problem ist folgendes:
Ich habe ein Converter-Programm, das für mich Clips (.mp4) in Musik Dateien umwandelt (.mp3).
Nur leider nimmt das Programm den ganzen Namen+Endung und setzt .mp3 dahinter. (Also "Dateiname.mp4.mp3)
Da mich das stört, würde ich gerne ein Programm schreiben, welches diese "doppelte Dateiendung" entfernt.
Bisher habe ich diese Funktion gefunden, die das ".mp4" aus dem Dateinamen löschen sollte, suche nun aber noch nach einer Methode, wie ich den Ordner "abscannen" kann um dann bei allen Dateien die Endung zu kürzen.

Delphi-Quellcode:

function RemoveInvalidCharsFromFileName(const sPFileName: String): String;
  var
    sFilePath, sFileName: String;
    i_lastBS, i : integer;
  begin
    i_lastBS := 0; //Variable initialisieren

    //Herausfinden welcher Teil des Strings Pfad und welcher Dateiname ist

    for i := 1 to length(sPFileName) do
      begin
        if sPFileName[i] = '\' then
          begin
            i_lastBS := i; //letztes Auftreten des Backslash merken

          end;
      end;

    //Pfad und Dateiname trennen

    sFileName := copy(sPFileName, i_lastBS+1, length(sPFileName)-i_lastBS+1);
    sFilePath := copy(sPFileName, 0, i_lastBS);

    //Den Dateinamen säubern

    sFileName := StringReplace(sFileName, '.mp4', '', [rfReplaceAll, rfIgnoreCase]);

    Result := sFilePath + sFileName;
  end;

Würde mich über Hilfe/Ansätze/etc. freuen.

Gruß,
gasty