[osmuar_exp]

Hola, creo que te falta un begin / end en esta parte:

Código Delphi [-]
if Column.Field.Dataset.FieldbyName('habilitado').AsBoolean then
If (gdFocused in State) then

lo demás creo que está bien...