Pascalscripts Unable to Register Type TDatasetErrorEvent

line about 892, comment the code as follow

1
//cl.addTypeS('TDataSetErrorEvent', 'procedure (Dataset: TDataSet; E: TObject; var Action: TDataAction)');