Format.cfFormat := CF_FILEDESCRIPTOR;
 Format.ptd := nil;
 Format.dwAspect := 1;
 Format.lindex := -1;
 Format.tymed := TYMED_HGLOBAL;

 if (dataObj.GetData(Format, Medium) = S_OK) then
   begin
     pfgd := PFileGroupDescriptor(GlobalLock(Medium.hGlobal));
      // Iterate each of the files
     for dwCount := 0 to pfgd.cItems - 1 do
       begin
         // Set up for getting the file data
         Format.cfFormat := CF_FILECONTENTS;
         Format.ptd := nil;
         Format.dwAspect := 1;
         Format.lindex := dwCount;
         Format.tymed := TYMED_ISTORAGE or TYMED_ISTREAM;
         if (dataObj.GetData(Format, stgmitem) = S_OK) then
           begin
             pstg := IStorage(stgmitem.stg);
             if pstg.OpenStream('__substg1.0_10090102', nil, STGM_READ or STGM_SHARE_EXCLUSIVE, 0, pstm) = S_OK then
               ...