犯了一个可笑的错误（数据库未Post）

代码如下：

……

CAD.Active:=true;

CAD.Append;

if ExtractFileName(opcad.FileName)<>null then

CAD.Fields.FieldByName('Title').AsString:= ExtractFileName(opcad.FileName)// 文件名

else

  CAD.Fields.FieldByName('Title').AsString:='s' ;

if  ExtractFileExt(opcad.FileName)<>null then

CAD.Fields.FieldByName('lx').AsString:=ExtractFileExt(opcad.FileName)        // 存入文档类型

else

  CAD.Fields.FieldByName('lx').AsString:='s';

             TBlobField(CAD.Fields.FieldByName('Memo')).LoadFromFile(opcad.FileName);

// 这句是关键，按路径以流存文件到数据库memo 字段

CAD.Post;

current :=  treeView1.Selected;

node:=treeview1.Items.AddChild(current,ExtractFileName(opcad.FileName)) ;

node.StateIndex:=2;

treeview1.Selected:=node;

//AvViewX1

AvViewX1.src:=opcad.FileName;

……

注释掉了红色部分代码，但是由于紫色代码，还是可以在程序中看到效果，但是一删除这个，所有的可以看效果的文件全部丢掉了！问题就在未post 。