上一版本代码，保存失败

Frames/BGLFme.dfm

@@ -339,7 +339,6 @@ object BGLFrame: TBGLFrame
     ExtendRowCount = 1
     Options = [aoAllowEdit, aoAllowDelete, aoAllowUpMove, aoAllowDownMove]
     OnGridCellCanEdit = zaBGLGridCellCanEdit
-    OnBeforeGridRowMove = zaBGLBeforeGridRowMove
     Left = 96
     Top = 88
   end

Frames/BGLFme.pas

@@ -62,8 +62,6 @@ type
     procedure zaBGBillsGridCellCanEdit(Sender: TObject;
       const ACoord: TPoint; var Allow: Boolean);
     procedure zgBGLCurrentChanged(Sender: TObject; Col, Row: Integer);
-    procedure zaBGLBeforeGridRowMove(Sender: TObject; const ACoord: TPoint;
-      ADist: Integer; ADir: TZjMoveDirection);
   private
     FBGLData: TBGLData;