Добавить функцию в класс существующий в Builder

void ClearGrid(TStringGrid *Grid)
{
for(int i=0; i<Grid->RowCount; i++)
    for(int j=0; j<Grid->ColCount; j++)
        Grid->Cells[j][i]="";
Grid->RowCount=1;

StringGrid1->ClearGrid();

ClearGrid(StringGrid1);

StringGrid1->ClearGrid(StringGrid1);

void ClearGrid(TStringGrid *Grid)
{
    for(int i = 0; i < Grid->RowCount; i++)
        Grid->Rows[i]->Clear();
    Grid->RowCount = 1;
}

class GridPlus: public TStringGrid
    {
    public:
    void Test() {ShowMessage("Test");}
    void Clear()
        {
        for(int i=0; i<RowCount; i++)
            Rows[i]->Clear(); RowCount=1;
        }
    };
class TForm1 : public TForm
{
__published:    // IDE-managed Components
// ... другое
GridPlus *StringGrid4;
// ... другое
};
// и в обработчике нажатия кнопки
void __fastcall TForm1::Button31Click(TObject *Sender)
{
StringGrid4->Test();
StringGrid4->Clear();
}

class GridPlus: public TStringGrid
    {
    public:
    void Test() {ShowMessage("Test");}
    void Clear()
        {
        for(int i=0; i<RowCount; i++)
            Rows[i]->Clear(); RowCount=1;
        }
    };
 
#define TStringGrid GridPlus
 
class TForm1 : public TForm
{

((GridPlus *)StringGrid4)->Clear();