试一下
TDirectoryListBox.PreserveCase