* ucs-4 -> variant type cast (variant -> ucs-4 is not possible due to overloading contraints of fpc and how ucs-4 is implemented) * some newlines fixed git-svn-id: trunk@13451 -