function StringToWideString(const s: String): WideString;
var
  len: integer;
const
  codePage = 3
begin
  Result := '';
  if s = '' then exit;
  len := MultiByteToWideChar(codePage, MB_PRECOMPOSED, PChar(@s[1]), -1, nil, 0);
  SetLength(Result, len - 1);
  if len <= 1 then exit;
  MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@s[1]), -1, PWideChar(@Result[1]), len);
end;

function StringToOleStr(const value:string):PWideChar;
begin
  Result := PWideChar(StringToWideString(value));
end;