ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Tbl_TuPian where KaHao='''+trim(edtBH.Text)+'''';
ClientDataSet1.Open;
if not ClientDataSet1.Eof then
begin
ClientDataSet1.Edit;
(ClientDataSet1.FieldByName('ZhaoPian') as Tblobfield).LoadFromStream(pic);
ClientDataSet1.Post;
pic.Free;
ClientDataSet1.ApplyUpdates(-1);
end;
ClientDataSet1.Close;

程序保存几次后就死掉了，跟踪到最后就是这一部分的原因，不知如何解决，还望各位前辈相助，谢谢了。