Fix out of range bug in UEncodings unit

Bug in 1st WideCharToMultiByte call in WideCharToChar function.

Fixes #97

Author: delphidabbler

Src/UEncodings.pas

@@ -439,7 +439,7 @@ function WideCharToChar(const Source: WideChar; const CodePage: Integer;
   BufSize: Integer;
 begin
   BufSize := WideCharToMultiByte(
-    CodePage, 0, @Source, 1, @Dest[0], 0, nil, nil
+    CodePage, 0, @Source, 1, nil, 0, nil, nil
   );
   SetLength(Dest, BufSize + 1);
   if WideCharToMultiByte(