TREOBJECT

type TREOBJECT = packed record

  cbStruct: DWORD;

  cp: LONG;

  clsid: CLSID;

  poleobj: IOLEOBJECT;

  pstg: ISTORAGE;

  polesite: IOLECLIENTSITE;

  sizel: SIZEL;

  dvaspect: DWORD;

  dwFlags: DWORD;

  dwUser: DWORD;

end;