Hi,
from LHelp we have:
"function ExtractRelativePath(const BaseName: UnicodeString; const DestName: UnicodeString):UnicodeString;
...
Note that directories must end on a path delimiter for this function to work correctly. If not, the last part is stripped and treated as a file name. "
So, there is no bug.