OLEContainer从文档载入对象

procedure TOleContainer . LoadAsDocument ( const FileName : string );
var
  Stream : TFileStream ;
  DataHandle : HGLOBAL ;
  Buffer : Pointer ;
begin
  Stream := TFileStream . Create ( FileName , fmOpenRead );
  try
    DataHandle := GlobalAlloc ( GMEM_MOVEABLE , Stream . Size );
    if DataHandle = 0 then OutOfMemoryError ;
    try
      Buffer := GlobalLock ( DataHandle );
      try
        Stream . Read ( Buffer ^, Stream . Size );
      finally
        GlobalUnlock ( DataHandle );
      end ;
      OleCheck ( CreateILockBytesOnHGlobal ( DataHandle , True , FLockBytes ));
      DataHandle := 0 ;
      OleCheck ( StgOpenStorageOnILockBytes ( FLockBytes , nil , STGM_READWRITE or
        STGM_SHARE_EXCLUSIVE , nil , 0 , FStorage ));
      OleCheck ( OleLoad ( FStorage , IOleObject , Self , FOleObject ));
      FDrawAspect := 1 ;
      InitObject ;
      UpdateView ;
    except
      if DataHandle <> 0 then GlobalFree ( DataHandle );
      DestroyObject ;
      raise ;
    end ;
  finally
    Stream . Free ;
  end ;
end ;