[Madmech]

Спасибо за совет. С Вашей помощью я решил эту проблему так:

Код:

procedure TForm2.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var i:integer;  
begin
  for i := 1 to n do
    if ARow = i then stringgrid1.Options := StringGrid1.Options + [goEditing];
  for i := n + 1 to 2 * n + 4 do
    if ARow = i then stringgrid1.Options := StringGrid1.Options - [goEditing];
end;