TObject=class
  ...
  Tmoney=class(TObject)
  ...
  TBigMoney=class(TMoney)
  ...
  
constructor TBigMoney.Init;
begin
  TObject.Init;
end;

procedure TForm1.MyGridMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TCustomGrid.MouseDown(...);
end;

procedure TForm1.MyGridMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TCustomGrid(MyGrid).MouseDown(Button, Shift, X, Y);
end;

  procedure TForm1.MyGridSelectCell(Sender: TObject; ACol, ARow: Longint;
    var CanSelect: Boolean);
  begin
     CanSelect:=(ACol> 0 )and(ARow> 0 ){например};
  end;

  procedure TForm1.MyGridMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
    if ... then raise Exception.Create('Сюда никак нельзя.');
  end;

procedure TYourGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;
 X, Y: Integer);
begin
 // вызов непосредственно метода TCustomGrid.MouseDown
 // для данного экземпляра

 TCustomGrid.MouseDown(Button,Shift,X,Y);
end;

procedure TMyForm.MyGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var 
 md: TMouseDownProc;
begin
 // вызов непосредственно метода TCustomGrid.MouseDown
 // для данного экземпляра

 TMethod(md).Code := @THackCustomGrid.MouseDown;
 TMethod(md).Data := Sender;

 md(Button, Shift, X, Y);
end;