uses ActiveX;
...
const s = 'BDOC';
...
Stream, stream2 : TMemoryStream;
...
Stream:=TMemoryStream.Create;
(datamodule1.IBTCharTest.fieldbyname('Col1')as TBlobField).SaveToStream(stream);
Stream.Position:=0;

stream2:=TMemoryStream.Create;
stream2.Write(s[1],4);
i:=DVASPECT_CONTENT;
stream2.Write(i,4);
i:=Stream.Size;
stream2.Write(i,4);
stream2.CopyFrom(Stream,Stream.Size);

OleContainer1.LoadFromStream(stream2);
OleContainer1.DoVerb(ovShow);

Stream.Free;
stream2.Free;

unit DBOleContainer;
{Author: Sergei V. Trepalin, 27 September 1998
E-mail: trep@trep.home.chg.ru
        trep@ipac1.sherna.msk.su

Free component. If some changes in source code will be made,
                one has to highlight changes by any means}

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 OleCtnrs, DB, DBCtrls;

type
 TDBOleContainer = class(TOleContainer)
 private
   FDataLink: TFieldDataLink;
   FAutoDisplay: Boolean;
   FFocused: Boolean;
   FObjectLoaded: Boolean;
   FDummy:integer;
   FFromActivate:boolean;
   procedure DataChange(Sender: TObject);
   function GetDataField: string;
   function GetDataSource: TDataSource;
   function GetField: TField;
   function GetReadOnly: Boolean;
   procedure SetDataField(const Value: string);
   procedure SetDataSource(Value: TDataSource);
   procedure SetReadOnly(Value: Boolean);
   procedure SetAutoDisplay(Value: Boolean);
   procedure SetFocused(Value: Boolean);
   procedure UpdateData(Sender: TObject);
   procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
   procedure CMExit(var Message: TCMExit); message CM_EXIT;
   procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
   procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
   procedure DoDeactivate(Sender:TObject);
 protected
   procedure Loaded; override;
   procedure Notification(AComponent: TComponent;
     Operation: TOperation); override;
   procedure LoadObject; virtual;
 public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
   property Field: TField read GetField;
   function InsertObjectDialog:boolean;
   procedure DestroyObject;
 published
   { Published declarations }
   property DataSource:TDataSource read GetDataSource write SetDataSource;
   property DataField:string read GetDataField write SetDataField;
   property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
   property AutoDisplay: Boolean read FAutoDisplay write SetAutoDisplay default True;
   property AutoActivate:integer read FDummy;
 end;

procedure Register;