请看这么写严谨否
static procedure TLIB_GC.SafeFlowOut(Afb: TFlowBroker);
const
cErrorMsg = 'Record not found or changed by another user';
begin
try
Afb.FlowControl.FlowOut(nil);
except
on e: Exception do
if SameText(e.Message, cErrorMsg) then
ShowMsg('在您浏览数据期间记录已被别人修改,请退出后再次提交', '');
else
ShowMsg('网络忙,请退出稍后提交', '');
end;
end;