User's procedure type to get custom character class.

TGetCustomCharClass = function (ClassCode: UCChar): Boolean;