TStringGrid. Переход в новую ячейку по нажатию кнопки

[TwiX]

В моей ситуации в ячейках только цифры, поэтому больше одного символа в ячейчке не должно быть. Я добавлял в OnKeyUp Field.Perform(WM_KEYDOWN, VK_TAB, 0). В принципе нормально, но если зажать кнопку, то будет не то, что нужно. Что можно сделать, что бы было красиво (т.е. добавлять в OnKeyPress проверку на длину не получится)?

[Баламут]

Вот навскидку набросал что-то. Дальше уж сам

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    Grid1: TStringGrid;
    procedure Grid1GetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: string);
    procedure Grid1KeyPress(Sender: TObject; var Key: Char);
  private
    r, c: integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Grid1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
  r := aRow;
  c := aCol;
end;

procedure TForm1.Grid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Length(Grid1.Cells[c, r]) >= 1 then Key := #0;
end;

end.

[Stilet]

Я бы написал так:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
with TStringGrid(Sender) do
 if not (key in ['0'..'9'])or(length(Cells[Col,row])=1)
  then key:=#0;
end;