Рекомендации по объединению нескольких классов

В приведенном ниже фрагменте у меня есть два класса с одинаковыми именами процедур. Код внутри этих процедур существенно отличается. Можно ли объединить эти классы, чтобы облегчить обслуживание и будущие улучшения, или я делаю это приемлемым образом?

type
  TMFRCore = class
    private
      FGridMain: TNextGrid;
      FGridSummary: TNextGrid;
    public
      constructor Create(Grid: TNextGrid; SummaryGrid: TNextGrid);
      destructor Destroy; override;
      procedure SetRowColour(Grid: TNextGrid; Row: Integer; Color: TColor; Start: Integer = 0);
      procedure OnSummaryDblClick(Sender: TObject);
      function GetSectionId(Section: String): Integer;

      property GridMain: TNextGrid read FGridMain write FGridMain;
      property GridSummary: TNextGrid read FGridSummary write FGridSummary;
  end;

type
  TMFRDates = class(TMFRCore)
    public
      procedure UpdateSummary;
      procedure UpdateMain(const sAircraft: string);
  end;

type
  TMFRHours = class(TMFRCore)
    public
      procedure UpdateSummary;
      procedure UpdateMain(const sAircraft: string);
  end;

Я инициализирую эти классы следующим образом;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  MFRHours := TMFRHours.Create(gridHours, gridHoursSummary);
  MFRDates := TMFRDates.Create(gridDates, gridDatesSummary);
end;