In the OnSelectCell event, this works fine (every even column is editable) if Col mod 2 = 0 then grd.Options := grd.Options + [goEditing]else grd.Options := grd.Options - [goEditing];