Новый компонент и Контекстное меню

TStringGrid *sg = new TStringGrid(Form1);
sg->Parent = Form1;
sg->PopupMenu = PopupMenu1;

DYNAMIC void __fastcall DoMouseUp( TMouseButton Button, TShiftState Shift, int X, int Y);
 
 DYNAMIC void __fastcall DoMouseMove( TShiftState Shift, int X, int Y);

void __fastcall TMyStringGrid::DoMouseUp( TMouseButton Button, TShiftState Shift, int X, int Y)
{
TGridCoord mouse = MouseCoord(X, Y);
 
    if(mouse.Y == 0 && mouse.X >= FixedCols)
    {
        TGridRect Rect;
 
        Rect.Left   = mouse.X;
 Rect.Right  = mouse.X;
        Rect.Top    = FixedRows;
        Rect.Bottom = RowCount;
 
        Selection = Rect;
    }
 
  if(mouse.X == 0 && mouse.Y >= FixedCols)
    {
        TGridRect Rect;
 
        Rect.Top   = mouse.Y;
 Rect.Bottom  = mouse.Y;
        Rect.Left    = FixedCols;
        Rect.Right = ColCount;
 
        Selection = Rect;
 
               }
}
 
void __fastcall TMyStringGrid::DoMouseMove(
      TShiftState Shift, int X, int Y)
{
for(int i=1;i<RowCount;i++)
                 {
                 char a='A'+i-1;
                 Cells[i][0]=a;
                 Cells[0][i]=i;
                 }
}