[Страдалецъ]

Вы почти правильно сделали:

Код:

if (ARow=21)and(ACol=1)  then
 StringGrid1.Options:=StringGrid1.Options-[goEditing]
else
 StringGrid1.Options:=StringGrid1.Options+[goEditing]