TDataset: fixed daAbort TDataAction behavior (was not aborting). Fixed TDataset.Delete calling OnDeleteError instead of OnPostError.

git-svn-id: trunk@23111 -

packages/fcl-db/src/base/dataset.inc

@@ -1543,7 +1543,7 @@ begin
 {$endif}
     DoBeforeDelete;
     DoBeforeScroll;
-    If Not TryDoing(@InternalDelete,OnPostError) then exit;
+    If Not TryDoing(@InternalDelete,OnDeleteError) then exit;
 {$ifdef dsdebug}
     writeln ('Delete: Internaldelete succeeded');
 {$endif}
@@ -2197,7 +2197,7 @@ begin
           Ev(Self,E,Retry);
         Case Retry of
           daFail : Raise;
-          daAbort : Result:=False;
+          daAbort : Abort;
         end;
         end;
     else