Manejador de errores

[asirvent]

Para mi caso necesito el casting, ya que lo que hago es utilizar un manejador de excepciones que se activa en el evento OnReconcileError:

procedure Tdmgym.tMaterialReconcileError(DataSet: TCustomClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction);
begin
if (E as EReconcileError).Errorcode = eKeyViol then
begin
mmensaje('No se puede guardar, el registro ya existe, ['+e.Message+']',mtwarning,[mbok]);
action:=racancel;
end
end;

¿que se podría hacer?

salu2 y gracias