anchor.diff:      FStmtUpd: TSQLitePreparedStatement;
       FStmtIns: TSQLitePreparedStatement;
       FStmtDel: TSQLitePreparedStatement;
  +    FAutoIncField: TField;
  +    FAutoIncFieldName: string;
     protected
   
     public
  
positive.code:     except
        //spawn
      end;
      
      EnableControls;
    end;
  end;
  
negative.code:       begin
          dic := dicIns;
          stmt := FStmtIns;
          {TODO -oLinas -cGeneral : resync autoincrement primary key}
          //FDB.GetLastInsertRowID
        end;
        usDeleted:
        begin
  