procedure  TForm1.MSQuery1BeforeInsert(DataSet: TDataSet);
 var  bi : TDataSetNotifyEvent ;
    trueEOF : boolean ;
 begin 
    with  DataSet  do 
    begin 
      trueEOF := ( RecordCount = RecNo ) ;

       try 
          if   not  trueEOF  then 
            Next
          else 
            Abort ;
       finally 
          if  trueEOF  then 
          begin 
            bi := BeforeInsert ;
            BeforeInsert :=  nil  ;
            Append ;
            BeforeInsert := bi ;
          end  ;
       end  ;
    end  ;
 end ;

 procedure  TForm1.MSQuery1AfterCancel(DataSet: TDataSet);
 begin 
    with  DataSet  do 
       if  ( RecordCount > RecNo )  then  DataSet.Prior ;
 end ;