String——>Pwidechar

function StringToWideChar(const Source: string; Dest: PWideChar; DestSize: Integer): PWideChar;
function StringToOleStr(const Source: string): PWideChar;