为什么blob字段存时没有错误，取时没有东西？答者有分？

数据库sql2000
ado连接存储时无错误，但是提取不出数据存取时代码如下：    FMemo.Clear;
    DMPact.adoTpl.Edit;
    DMPact.adoTplPACTBLOB.Clear;
    try
      FWriters:=TWriter.Create(FMemo,1024);
      FWriters.WriteListBegin;
     for i:=0 to ControlCount - 1 do
       WriteObj(Controls[i]);  //填写FMemo的过程，跟踪时执行
       FWriters.WriteListEnd;
      DMPact.adoTplPACTBLOB.LoadFromStream(FMemo);
   saveDB(DMPact.adoTpl);
    finally
     FreeAndNil(FWriters);
    end;
  except
   FreeAndNil(FMemo);
  end;
提取代码如下：
  try
    DMPact.adoTplPACTBLOB.SaveToStream(FMemo);
    if FMemo.Size>0 then
      ReadObj;  //读取FMemo的过程
  except
   FMemo.Clear;
    FreeAndNil(FMemo);
  end;
end;其中：FMemo 为TMemoryStream,FReader 为 Readers ,FWriter 为 Writers答者有分。