Bevor ich das geschrieben hab, stand dort noch ein
RemoveFileExt.
es gab auch keine RedBox und beim Zitieren hatten ich's mir nicht nochmal genau angesehn.
[add]
schau mal was
ExtractFileExt macht und was für Parameter es möchte
ChangeFileExt ersetzt den vorhandenen Parameter durch den, welchen man angibt ... als haben wir extra '' genomen, damit dieses gelöscht, bzw. durch "nichts" ersetzt wird.
PS: drücke mal die Strg+Taste und klicke gleichzeitig mit der linken Maustaste auf den Befehl "Delete", in deinen Delphi.