Исключение в StringGrid

if (ACol = 3) and (ARow = 4) then CanSelect:= False;//номер столбца и номер строки, не вводить

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if ( (StringGrid1.col = 1   ) //номер столбца
 and (StringGrid1.row=1     ) //номер строки
 and (key in ['0','5','9']) ) //цифры 0 5 9
 then Key := #0;   // то не вводить
end;

key in ['0'..'9']

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;
 
type
  // свое поле редактирования с фильтрацией символов
  TNumEdit = class(Vcl.StdCtrls.TEdit)
  private
    FOwnerGrid: TStringGrid;
  protected
    procedure KeyPress(var Key: Char); override;
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  end;
 
  // своя сетка с необходимым функционалом
  TStringGrid = class(Vcl.Grids.TStringGrid)
  private
    FEdit: TNumEdit;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure EnterEditor;
  end;
 
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  end;

implementation
 
{$R *.dfm}
 
{ TStringGrid }
 
constructor TStringGrid.Create(AOwner: TComponent);
begin
  inherited;
  // создаем и настраиваем внутреннее поле
  FEdit:= TNumEdit.Create(Self);
  FEdit.Parent:= Self;
  FEdit.AutoSize:= false;
  FEdit.Hide;
  FEdit.FOwnerGrid:= Self;
end;
 
destructor TStringGrid.Destroy;
begin
  FEdit.Free;
  inherited;
end;
 
// процедура отображения редактора
procedure TStringGrid.EnterEditor;
begin
  FEdit.BoundsRect:= CellRect(Col,Row);
  FEdit.Text:= Cells[Col,Row];
  FEdit.Show;
  FEdit.SetFocus;
end;
 
{ TNumEdit }
 
// при потере фокуса редактором скрываем его
procedure TNumEdit.CMExit(var Message: TCMExit);
begin
  inherited;
  Hide;
end;
 
// обработка нажатия функциональных клавиш в поле ввода
procedure TNumEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited;
  case Key of
  VK_ESCAPE: FOwnerGrid.SetFocus;
  VK_RETURN: with FOwnerGrid do
             begin
               // ТАКЖЕ ЗДЕСЬ МОЖНО ДОБАВИТЬ КУЧУ ДОПОЛНИТЕЛЬНЫХ ПРОВЕРОК
               // НА СООТВЕТСТВИЕ ТЕКСТА КАКИМ-ЛИБО УСЛОВИЯМ
               Cells[Col,Row]:= Text;
               SetFocus;
             end;
  end;
end;
 
// фильтрация символов
procedure TNumEdit.KeyPress(var Key: Char);
begin
  inherited;
  case Key of
  '0'..'9',#8:;
  else Key:= #0;
  end;
end;

procedure TForm2.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key in [VK_RETURN,VK_F2] then
  with StringGrid1 do
  if (Col = 1) and (Row = 1) then EnterEditor;
end;