控件ADOConnection1 ADOQuery1已连接好测试通 opendialog1 SaveDialog1 edit1内容写备注button1
数据库表结构:表NORMAL
 编号CODE 10A0001名称NAME 你好 文件FILE <BLOB>类型 10A 录入或修改时间LSTUPDTIME 2012-03-05备注NOTE NULL
高手请教以下代码哪有问题,怎么改:出错信息:转换请求无法实现或不合理.
procedure TForm1.button1Click(Sender: TObject);
var
    FileName:string;
    sm:TstringStream;
begin
    try
        if   opendialog1.Execute   then
        begin
          FileName:=opendialog1.FileName;
            OpenWordFile(OleContainer1,  FileName);
          olecontainer1.DoVerb(ovPrimary);
          sm   :=   tstringstream.create( '');
          olecontainer1.savetostream(sm);
          with   ADOQuery1   do
          begin
            close;
            sql.clear;
            sql.add('insert into NORMAL(CODE,NAME,NORMALFILE,NORMALTYPE,LSTUPDTIME,NOTE)
                 values(:CODE,:NAME,:NORMALFILE,:NORMALTYPE,:LSTUPDTIME,:NOTE)');
            parameters.ParamByName('CODE').value:='10A0002';
            parameters.ParamByName('NAME').value:='FileName';
            Parameters.ParamByName('NORMALFILE').LoadFromStream(sm,ftBlob);
            parameters.ParamByName('NORMALTYPE').value:='10A';
            parameters.ParamByName('LSTUPDTIME').value:='now';
            parameters.ParamByName('NOTE').value:=edit2.Text;
            execsql;
          end;
          end;
    finally
      sm.free;
    end;
end;