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