@Bart You are right
There is a message in the message box saying:
unit1.pas(1160,17) Warning: Symbol "ExtractFileNameWithoutExt" is deprecated: "
Use the function from unit LazFileUtils"
function ExtractFileNameOnly(const AFilename : string) : string;
If it's Green I go I don't read those pesky messages, maybe I should.