Переключение между ячейками TStringGrid по нажатию Enter

// В h-файле, перед описанием класса формы
namespace TMyGrid
{
    class TMyInplaceEdit : public TInplaceEdit
    {
    public:
        __fastcall virtual TMyInplaceEdit(TComponent* AOwner)
            : TInplaceEdit(AOwner)
        {
        }
 
    protected:
        DYNAMIC void __fastcall KeyDown(System::Word &Key,
            System::Classes::TShiftState Shift)
        {
            TStringGrid *grid = static_cast<TStringGrid*>(Parent);
            if (Key == VK_RETURN)
            {
                if (grid->Row < grid->RowCount - 1) grid->Row += 1;
                else if (grid->Col < grid->ColCount - 1)
                {
                    grid->Col += 1;
                    grid->Row = grid->FixedRows;
                }
            }
            TInplaceEdit::KeyDown(Key, Shift);
        }
    };
 
    class TStringGrid : public Grids::TStringGrid
    {
    protected:
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            return new TMyInplaceEdit(this);
        }
    };
 
};
#define TStringGrid TMyGrid::TStringGrid
 
// тут класс формы, без изменений

System::Classes::TShiftState Shift)

namespace TMyGrid
{
    class TMyInplaceEdit : public TInplaceEdit
    {
    public:
        __fastcall virtual TMyInplaceEdit(TComponent* AOwner)
            : TInplaceEdit(AOwner)
        {
        }
 
    protected:
        DYNAMIC void __fastcall KeyDown(Word &Key,
            Classes::TShiftState Shift)
        {
            TStringGrid *grid = static_cast<TStringGrid*>(Parent);
            if (Key == VK_RETURN)
            {
                if (grid->Row < grid->RowCount - 1) grid->Row += 1;
                else if (grid->Col < grid->ColCount - 1)
                {
                    grid->Col += 1;
                    grid->Row = grid->FixedRows;
                }
            }
            TInplaceEdit::KeyDown(Key, Shift);
        }
    };
 
    class TStringGrid : public Grids::TStringGrid
    {
    protected:
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            return new TMyInplaceEdit(this);
        }
    };
 
};
#define TStringGrid TMyGrid::TStringGrid

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TStringGrid *SGnew = new TStringGrid(Form1);

DrawText(Canvas->Handle, s.c_str(), s.Length(), &R, Format);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <tchar.h> // добавить - раз
 
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) // название функции и тип lpTstr - два
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

#include "GeoUnit.h" // Вот эту строку
//---------------------------------------------------------------------------
namespace SG_ComboBoxes

                switch (ACol)
                {
                case 2:
                    // Items->CommaText = L"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20"; // Эту
                    for(int i = 1; i <= GetTableCount(); i++) Items->Add(IntToStr(i)); // на вот эту
                    break;
                case 8:
                    Items->CommaText = L" "в откосах" "без откосов" ";
                }

int GetTableCount(); // перед подключением DataUnit - опишем прототип
 
#include "DataUnit.h"

TGeology *Geology;
 
int GetTableCount()
{
    return Geology->im;
}
// ...