[Descendents]

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 if (acol = 2) and (arow = 1) then
   StringGrid1.Options :=StringGrid1.Options-[goediting]
 else
   StringGrid1.Options :=StringGrid1.Options+[goediting];
end;

A ver si esto te va bien

Saludos