Here is a simple test: program OrdTest; {$APPTYPE CONSOLE} uses SysUtils; begin try Writeln(Ord('?'), ' ', Ord(Char('?'))); // 223, 1071 Assert(Ord('?') = Ord(Char('?'))); // Fails except on E:
Exception do Writeln(E.ClassName, ': ', E.Message); end; ...
More...