以下是我将OLE中的word内容存入sql server 数据库中的代码，运行时一直出错，不知错在哪里?(100分)

以下是我将OLE中的word内容存入sql server 数据库中的代码，运行时一直出错，不知错在哪里?
字段为 image。
var
Form1: TForm1;
oleStream,blobstream: TStream;

procedure TForm1.Button3Click(Sender: TObject);
begin
OleStream := TMemoryStream.Create;
BlobStream := BlobStream.Create;
With adoquery1 do
Begin
insert;
Ole.SaveToStream(OleStream); {*Ole ---> TMemoryStream*}
TBlobField(FieldByname('内容')).LoadFromStream(OleStream);
{*将Ole的数据填入字段*}
post;

BlobStream.Free;
OleStream.Free;
end;
end;