在线求救贴，DELPHI ThreadPool 里操作数据库提示 Abstract Error 但是也执行成功了请教如何解决？

zxingdream 2011-04-09 08:43:51

各位大侠，我是DELPHI 初学者，刚刚接触线程池 CnThreadPool 然后就是在 OnProcessRequest 事件里执行数据库操作
代码如下：
try
FCS.Enter;//临界区
CQuery:= TUniQuery.Create(nil);
if strResult='' then begin
CaiNowUser:= 'ID：'+Ct_Id+'用户不存在';
try
CQuery.Connection:= DMCollectRdm.conClctRdm;
// SqlUpdate:= 'DELETE FROM pn_Collect WHERE Ct_Id= :FCt_Id'; //'RNum:'+RowNum+
SqlUpdate:= 'UPDATE pn_Collect SET Ct_ThreadStatus=2 WHERE Ct_Id= :FCt_Id';
CQuery.SQL.Text:= SqlUpdate;
CQuery.ParamByName('FCt_Id').AsInteger:= StrToInt(Ct_Id);
CQuery.Execute;
except
end;
end else begin
SqlUpdate:= ' update pn_Collect set Ct_Nick= :Ct_Nick,Ct_Url= :Ct_Url,'
+'Ct_BlogUrl= :Ct_BlogUrl,Ct_Fans= :Ct_Fans,Ct_Sex= :Ct_Sex,Ct_Address='
+' :Ct_Address,Ct_ThreadStatus=1,Ct_CheckIn=0 where Ct_Id= :FCt_Id';
try
TempList:= TStringList.Create;
TempList:= FPNSplit( strResult,'|');
CaiNowUser:= '';
CaiNowUser:= 'ID：'+Ct_Id+TempList[1];
try
CQuery.Connection:= DMCollectRdm.conClctRdm;
// CQuery.Transaction.StartTransaction; 'RNum:'+RowNum+
CQuery.SQL.Text:= SqlUpdate;
CQuery.ParamByName('FCt_Id').AsInteger:= StrToInt(TempList[0]);
CQuery.ParamByName('Ct_Nick').AsString:= TempList[1];
CQuery.ParamByName('Ct_Url').AsString:= TempList[2];
CQuery.ParamByName('Ct_Address').AsString:= (TempList[3]);
CQuery.ParamByName('Ct_Sex').AsString:= TempList[4];
CQuery.ParamByName('Ct_BlogUrl').AsString:= '';
CQuery.ParamByName('Ct_Fans').AsInteger:= 10;
CQuery.Execute;
except
end;
finally
FPNFreeObj(TempList);
end;
end;
直接运行exe的时候老是弹出 Abstract Error 的错误，但是数据库里执行成功了
我在程序里跟踪调试了发现每次线程执行到 Query.Execute 都会报错，也就是 Abstract Error 点continue然后接着执行所以我不明白为什么会出现这样的错误请高手指点拜谢了！！！

...全文