procedure BLOBToOleContainer(const Stream: TStream; OleContainer : TOleContainer);
  type
    TStreamHeader = record
      case Integer of
        0: ( // New
          Signature: Integer;
          DrawAspect: Integer;
          DataSize: Integer);
        1: ( // Old
          PartRect: TSmallRect);
    end;

  const
    StreamSignature = $434F4442;
    DVASPECT_CONTENT   = 1;
    DVASPECT_ICON      = 4;

  var
    Header : TStreamHeader;
    TempStream : TMemoryStream;
    R : TRect;
begin
  if OleContainer.OldStreamFormat then
  begin
    R := OleContainer.BoundsRect;
    Header.PartRect.Left := R.Left;
    Header.PartRect.Top := R.Top;
    Header.PartRect.Right := R.Right;
    Header.PartRect.Bottom := R.Bottom;
  end else
  begin
    Header.Signature := StreamSignature;
    if OleContainer.Iconic
      then Header.DrawAspect := DVASPECT_ICON
      else Header.DrawAspect := DVASPECT_CONTENT;
  end;

  TempStream := TMemoryStream.Create;
  try
    Header.DataSize := Stream.Size;
    TempStream.Write(Header, SizeOf(Header));
    Stream.Position := 0;
    TempStream.CopyFrom(Stream, Header.DataSize);
    TempStream.Position := 0;
    OleContainer.LoadFromStream(TempStream);
  finally
    TempStream.Free;
  end;
end;