DELPHI7 Widestring 转为POleStr

com操作需要Widestring 转为POleStr，代码如下:

function WideStringToLPOLESTR(const Source: Widestring): POleStr;
var
  Len: Integer;
begin
  Len := Length(Source) * SizeOf(WideChar);
  Result := CoTaskMemAlloc(Len + 2);
  FillChar(Result^, Len + 2, 0);
  Move(PWideString(Source)^,Result^,  Len);
end;