Unicode-Issue with GetFourCC() and FCC() #17

What steps will reproduce the problem?
1. Using these functions in Delphi Versions > D2010 leads to wrong results.

What is the expected output? What do you see instead?

GetFourCC() returned 0-Bytes between the characters, because String consists of 
Unicode chars instead of ANSI chars now.

What version of the product are you using?
SVN r10.

The fix is easy.