数据传输中的问题：（(20分)

各位：
有以下一段程序；
data.Confwq.BeginTrans;
try
data.yccssw.Open;
with data.yccssw do
begin
。
。
。
TranSucc := true;
savecssw;
application.MessageBox('该数据上传完毕，请选择其他数据或断开网络！','操作提示',MB_OK + MB_ICONASTERISK);
data.Confwq.CommitTrans;
end;
except
if TranSucc = false then
data.Confwq.Cancel;
//？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
data.Confwq.RollbackTrans;
//？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
screen.Cursor := crDefault;
end;

我假设在传输中遇到突然短线的问题，程序就运行到except后的那几句，可是到
data.Confwq.RollbackTrans;时产生Error : connection failure的错误，我如何
才可以把哪个错误提示屏蔽掉换成我的错误框！

...
except
on E: exceptin do
ShowMessage(E.messag);
end;

补充一点:
try
data.Confwq.RollbackTrans;
except
on E: exception do
ShowMessage(E: message);
end;

多人接受答案了。