Código Delphi
[-]
Try
Except on E:Exception do if (E is EDBEngineError) then
with EDBEngineError(E).Errors[0] do
if ErrorCode = 9729 then begin
end else
raise;
else
raise;
end;
Busca en internet "BDE ERROR CODES", si quieres conocer los demás errores.