Перемещение между объектами

procedure TForm1.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState); // в events ищем KeyDown
begin
  if (Key = 37) then edit4.SetFocus; // Key = 37 кнопка влево, edit4.SetFocus - фокус на  элемент слева от текущего
  if (Key = 38) then edit2.SetFocus; // Key = 38 кнопка вверх, edit2.SetFocus - фокус на  элемент сверху от текущего
  if (Key = 39) then edit6.SetFocus; // Key = 39 кнопка вправо, edit6.SetFocus - фокус на  элемент справа от текущего
  if (Key = 40) then edit8.SetFocus; //Key = 40 кнопка вниз, edit4.SetFocus - фокус на  элемент снизу от текущего
end;

type
  TEdit = class(StdCtrls.TEdit) // Переделываем по желанию KeyDown
  protected
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  end;
 
  TForm4 = class(TForm)
    Edit1: TEdit; // тут все эти Эдиты
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
const
  size = 3;
  Table : array[0 .. size - 1, 0 .. size - 1] of Integer =
  ((1, 2, 3), // Таблица, задающая нумерацию Эдитов
   (4, 5, 6),
   (7, 8, 9));
 
var
  currRow : Integer = 0; // Это можно делать при создании формы
  currCol : Integer = 0;
 
implementation
 
{$R *.dfm}
 
procedure go;
begin
  (Form4.FindComponent(Format('Edit%d', [Table[currRow, currCol]])) as TEdit).SetFocus;
end;
 
 
{ TEdit }
procedure TEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
  // inherited;
  case Key of
  37: if currCol > 0 then Dec(currCol) else currCol := size - 1; // Влево
  38: if currRow > 0 then Dec(currRow) else currRow := size - 1; // Вверх
  39: currCol := (currCol + 1) mod size; // Вправо
  40: currRow := (currRow + 1) mod size; // Вниз
  else Exit;
  end;
  go; // Переводим фокус
end;
 
end.