L'evento OnChange è definito come 'TFieldNotifyEvent'.
Dunque
....
Var MiaProceduraOriginale: TFieldNotifyEvent;
begin
MiaProceduraOriginale := datasetMioField.onchange;
.....
datasetMioField.onchange := MiaProceduraOriginale;
end;