Valida en DataGrid.
Dentro del evento DBGrid1_AfterColUpdate escribir :
If dbgrid1.colummns.value <> 1 or dbgrid1.colummns.value <> 2 then
msgbox "Los valores aceptables con 1 o 2 "
dbgrid1.col = 1 ' Supongo que es la primera columna
else
dbgrid1.col = dbgrid1.col + 1
end if
