Сделать главную диагональ StringGrid недоступной для редактирования

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

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
   CanSelect := (ACol <> ARow);
end;

type
  TForm1 = class(TForm)
    // ...
  private
    { Private declarations }
    // Добавляем описание приватного метода
    procedure MySelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  public
    { Public declarations }
  end;
 
// ...
 
// Его реализацию
procedure TForm1.MySelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
   CanSelect := (ACol <> ARow);
end;
 
// Создание грида
procedure TForm1.Button5Click(Sender: TObject);
var sg : TStringGrid;
begin
   sg := TStringGrid.Create(Self);
   sg.Parent := Self;
   sg.ColCount := 10;
   sg.RowCount := 10;
   sg.Width := 300;
   sg.Height := 300;
   sg.DefaultColWidth := 35;
   sg.DefaultRowHeight := 35;
   sg.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing];
 
   sg.OnSelectCell := MySelectCell; // Вот он, обработчик
end;

// Не забудь объявить в классе формы
procedure TForm1.MyDrawCell(Sender: TObject; ACol, ARow: Integer;
   Rect: TRect; State: TGridDrawState);
begin
   with Sender as TStringGrid do
   begin
      if ACol <= ARow then
         Canvas.Brush.Color := clDkGray
      else
         Canvas.Brush.Color := clWindow;
 
      if (ACol >= FixedCols) and (ARow >= FixedRows) then
      begin
         Canvas.FillRect(Rect);
         Canvas.TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);
      end;
   end;
end;

   sg.OnSelectCell := MySelectCell;
   sg.OnDrawCell := MyDrawCell; // <--- Вот так

procedure TForm1.MySelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
   CanSelect := (ACol > ARow);
end;