STGMEDIUM

type STGMEDIUM = record

  tymed: LongInt;

  case Integer of

    0: (

        hBitmap: THandle;

        unkForRelease: Pointer;

      );

    1: (

        hMetaFilePict: THandle;

      );

    2: (

        hEnhMetaFile: THandle;

      );

    3: (

        hGlobal: HGLOBAL;

      );

    4: (

        lpszFileName: POleStr;

      );

    5: (

        stm: Pointer;

      );

    6: (

        stg: Pointer;

      );

end;