anchor.diff:  
       option := AOptions.Add;
       option.DisplayName := info.ID;
  -    option.Level:=Integer(edSecondarySkills.Objects[1, i]);
  +    option.Level:=Integer(PtrUint(edSecondarySkills.Objects[1, i]));
     end;
   
   end;
  
positive.code:     edSecondarySkills.Objects[0, row] := info;
  
      edSecondarySkills.Cells[1, row] := MasterySelector.Items[option.Level];
      edSecondarySkills.Objects[1, row] := TObject(option.Level);
    end;
  end;
  
  
negative.code:     1:
      begin
        Editor := MasterySelector;
        MasterySelector.ItemIndex := Integer(PtrUInt(grid.Objects[grid.Col, Grid.Row]));
      end
    end;
  
  