TComInterface<IStream> pIStrm;
			//TMemoryStream *pMStrm;
			TMemoryStream * pMStrm = new TMemoryStream;
            TField * field;
			field = Get_P_Image->FieldByName("Pic");
			TBlobField * blob = (TBlobField*) field;
			blob->SaveToStream(pMStrm);
			int sz = pMStrm->Size;
			if (sz > NULL)
			{
				pMStrm->Seek(0, 0);
				TIStreamWrapper *pWrapper = new TIStreamWrapper(pIStrm);
				try
				{
					// or: pMStrm->LoadFromStream(pWrapper);
					pMStrm->CopyFrom(pWrapper, 0);
				}
				__finally
				{
					delete pWrapper;
				}
				DWGIm->LoadFromIStream(pIStrm);
			}
			delete pIStrm;
class TIStreamWrapper : public TStream
{
private:
	TComInterface<IStream> pIStrm;

protected:
	virtual __int64 __fastcall GetSize();
	virtual void __fastcall SetSize(const __int64 NewSize);

public:
	__fastcall TIStreamWrapper(IStream *Strm);
	virtual int __fastcall Read(void *Buffer, int Count);
	virtual int __fastcall Write(const void *Buffer, int Count);
	virtual __int64 __fastcall Seek(const __int64 Offset, TSeekOrigin Origin);
};

__int64 __fastcall TIStreamWrapper::Seek(const __int64 Offset, TSeekOrigin Origin)
{
    LARGE_INTEGER li;
    li.QuadPart = Offset;
    ULARGE_INTEGER ul;
    OleCheck(pIStrm->Seek(li, IStreamSeekOrigin[Origin], &ul));
    return ul.QuadPart;
}

TField * field;
TBlobField * blob = (TBlobField*) field;
TMemoryStream * stream = new TMemoryStream;

BSTR fn = WideString(OpenDialog1->FileName).c_bstr();
компонент->LoadFile(fn);