[detrin]

Попробуй данный код:

Код:

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

В данном коде недоступна к редактированию вторая колонка.