function Big5ToUnicode(const Ws: string;   Page:Word):widestring;
var  IL,OL: Integer;
begin  
  IL :=Length(WS);  
  OL :=MultiByteToWideChar(CodePage,0, Pchar(ws),IL,nil,0);
  SetLength(Result,OL);  
  MultiByteToWideChar(CodePage,0,  Pchar(ws),IL,
                      pwidechar(Result),OL);
end;     // ANSI 轉 Unicode
function StringToWideString(const S: string; CodePage: Word): WideString;
var
  InputLength, OutputLength: Integer;
begin
  InputLength := Length(S);
  OutputLength := MultiByteToWideChar(CodePage, 0, PChar(S), InputLength, nil, 0);
  SetLength(Result, OutputLength);
  MultiByteToWideChar(CodePage, 0, PChar(S), InputLength, PWideChar(Result), OutputLength);
end;    //Unicode 轉 ANSI
function WideStringToString(const WS: WideString; CodePage: Word): string;
var
  InputLength, OutputLength: Integer;
begin
  InputLength := Length(WS);
  OutputLength := WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, nil, 0, nil, nil);
  SetLength(Result, OutputLength);
  WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, PChar(Result), OutputLength, nil, nil);
end;