[AND_REY]

Вот ещё идея появилась:

Код:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var
 Col,Row,R: Integer;
begin
R:= 3;  // 3-ий столбец можно редактировать остальные нет.
StringGrid1.MouseToCell(X,Y,Col,Row);
if R = Col Then
 StringGrid1.Options:=  StringGrid1.Options + [goEditing]
          Else
 StringGrid1.Options:=  StringGrid1.Options - [goEditing];
end;

По аналогии можно для любой клетки сделать.