Ограничить выделение в StringGrid-e

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
 if (ACol<5) or (ACol>=15) then CanSelect:=False;
end;

var
  vidilenie:Boolean
.................
procedure TForm2.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  vidilenie:=true;
end;
 
procedure TForm2.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 TI:TInput;
 MI: TMouseInput;
 P:TPoint;
begin
  if (vidilenie = true) then
    if (StringGrid1.Selection.Right >= 8) and (StringGrid1.Selection.Left <= 10) then
      begin
        GetCursorPos(P);
        MI.dx := P.X;
        MI.dy := P.Y;
        MI.mouseData := 0;
        MI.dwFlags := MOUSEEVENTF_RIGHTDOWN ;
        MI.time := 10;
        TI.mi := MI;
        TI.Itype := INPUT_MOUSE;
        SendInput(1, TI, SizeOf(TInput));
        MI.dwFlags:=MOUSEEVENTF_RIGHTUP;
        TI.mi := MI;
        SendInput(1, TI, SizeOf(TInput));
      end;
end;
 
procedure TForm2.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  vidilenie:=false;
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Sel: TGridRect;
begin
  if Button = mbLeft then begin
    Sel := StringGrid1.Selection;
    if Sel.Left   < 2 then Sel.Left   := 2;
    if Sel.Top    < 3 then Sel.Top    := 3;
    if Sel.Right  > 6 then Sel.Right  := 6;
    if Sel.Bottom > 7 then Sel.Bottom := 7;
    StringGrid1.Selection := Sel;
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls;
 
type
  TGridSelectMode = (sgSelectAll, sgSelectStartGrid, sgSelectStartRect);
 
type
  TStringGrid = class (Grids.TStringGrid)
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  private
    FAllowedRect: TRect;
    FSelectMode: TGridSelectMode;
  public
    property GridSelectMode: TGridSelectMode read FSelectMode write FSelectMode default sgSelectAll;
    property AllowedRect: TRect read FAllowedRect write FAllowedRect;
  end;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TStringGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
 
  procedure v1; // Перемещает курсор в разрешённую область и начинает выделение
  var
    r1, r2: TRect;
  begin
    r1 := CellRect(FixedCols, FixedRows);
    if (X >= r1.Left) and (Y >= r1.Top) then begin
      // Получить координаты разрешённой области
      r1 := CellRect(FAllowedRect.Left, FAllowedRect.Top); // Здесь указать левую верхнюю ячейку разрешённой области
      r2 := CellRect(FAllowedRect.Right, FAllowedRect.Bottom); // Здесь указать правую нижнюю ячейку разрешённой области
 
      // Ограничить полученные координаты мыши разрешённой областью
      if X < r1.Left   then X := r1.Left  ;
      if X > r2.Right  then X := r2.Right ;
      if Y < r1.Top    then Y := r1.Top   ;
      if Y > r2.Bottom then Y := r2.Bottom;
 
      // Собрать координаты в один Rect
      r1.Right  := r2.Right ;
      r1.Bottom := r2.Bottom;
      // Перевести координаты разрешённой области в координаты на экране
      r1.TopLeft     := ClientToScreen(r1.TopLeft);
      r1.BottomRight := ClientToScreen(r1.BottomRight);
 
      // Ограничить координаты мыши разрешённой областью
      ClipCursor(@r1);
    end;
  inherited MouseDown(Button, Shift, X, Y);
  end;
 
  procedure v2; // Выделение только если щёлкнули в разрешённой области
  var
    r1, r2: TRect;
  begin
    inherited MouseDown(Button, Shift, X, Y);
 
    r1 := CellRect(FixedCols, FixedRows);
//    if (X >= r1.Left) and (Y >= r1.Top) then
    begin
      // Получить координаты разрешённой области
      r1 := CellRect(FAllowedRect.Left, FAllowedRect.Top); // Здесь указать левую верхнюю ячейку разрешённой области
      r2 := CellRect(FAllowedRect.Right, FAllowedRect.Bottom); // Здесь указать правую нижнюю ячейку разрешённой области
 
      // Ограничить полученные координаты мыши разрешённой областью
      if (X < r1.Left) or (X > r2.Right) or (Y < r1.Top) or (Y > r2.Bottom) then begin
        FGridState := gsNormal
      end else begin
        // Собрать координаты в один Rect
        r1.Right  := r2.Right ;
        r1.Bottom := r2.Bottom;
        // Перевести координаты разрешённой области в координаты на экране
        r1.TopLeft     := ClientToScreen(r1.TopLeft);
        r1.BottomRight := ClientToScreen(r1.BottomRight);
 
        // Ограничить координаты мыши разрешённой областью
        ClipCursor(@r1);
      end;
    end;
  end;
 
begin
  case FSelectMode of
  sgSelectAll: inherited;
  sgSelectStartGrid: v1; // Перемещает курсор в разрешённую область
  sgSelectStartRect: v2; // Выделяет только если щёлкнули в разрешённой области
  end;
end;
 
procedure TStringGrid.MouseUp(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  ClipCursor(nil); // Снять ограничение перемещения курсора
  inherited;
end;
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.ColCount := 10;
  StringGrid1.RowCount := 10;
//  StringGrid1.GridSelectMode := sgSelectStartGrid; // Разные варианты выделения
  StringGrid1.GridSelectMode := sgSelectStartRect;
  StringGrid1.AllowedRect := Rect(2, 3, 6, 7);
end;
 
end.