VCL中ExtractFileName 的問題

今天有人反映，在導入相片時，部件文件名出錯，經查是 ExtractFileName 提取文件名時，不能正確處理中文導致。
如： ExtractFileName( "F:/許願.JPG") 應該返回 "許願.JPG",但是ExtractFileName卻返回"願.JPG"，導致出錯，
(注：是繁體中文的‘許’字，當然還有很多字會出現這現象。)
無耐，BDS2007未支持unicode ，只好改寫ExtractFileName，讓其支持中文。
AnsiString ExtractWideFileName(WideString const & str)
{
 int L = str.Length() ;
 wchar_t const *p = str.c_bstr() + L - 1;
 for(int x = 0 ; x < L ; ++x , --p)
     if ( *p == ‘ // ’ || *p == ‘ : ’ )  //不知道优快云如何輸入 ‘ 號 
         return ++p;
 return str ;
}

這樣就能正確提取文件名了。只好期待BDS2008全面支持unicode