procedure BLOBToExcel(const Stream: TStream);
var
  DataHandle: HGLOBAL;
  Buffer: Pointer;
  FLockBytes: ILockBytes;
  FStorage: IStorage;
  FOleObject: IOleObject;
begin
  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;
    CreateILockBytesOnHGlobal(DataHandle, True, FLockBytes);
    OleCheck(StgOpenStorageOnILockBytes(FLockBytes, nil, STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil, 0, FStorage));
    OleCheck(OleLoad(FStorage, IOleObject, nil, FOleObject));
    FOleObject.DoVerb(0, nil, nil, 0, 0, Rect(0, 0, 0, 0));

//    XLAPP := GetActiveOleObject('Excel.Application'); // коннектимся
//    или можно делать CreateOleObject, но раньше
//    или если нужно раннее связывание
//    XLApp := TExcelApplication.Create(Application);
//    XLApp.ConnectKind := ckRunningOrNew;
//    XLApp.Connect;
//    а дальше всё как обычно

  except
    if (DataHandle <> 0)
      then GlobalFree(DataHandle);
    if (FOleObject <> nil)
      then FOleObject.Close(OLECLOSE_NOSAVE);
    raise;
  end;
end;