TRxMemoryData = class(TDataSet)
  private
     ......................................
  protected
    function GetActiveRecBuf(var RecBuf: PChar): Boolean; [color=red]virtual;[/color]

  TFxIniTable = class(TRxMemoryData)
  private
     ......................................
  protected
    function  GetActiveRecBuf(var RecBuf: PChar): Boolean;[color=red] override;[/color]
     ......................................


function TFxIniTable.GetActiveRecBuf(var RecBuf: PChar): Boolean;
begin
  Result:=inherited GetActiveRecBuf(RecBuf);
  if Result and (FRowRecord>0) then begin
    FRowBuffer:=AllocRecordBuffer;
    Move(Records[FRowRecord-1].Data^,FRowBuffer^,GetRecordSize);
    FRowRecord:=0;
    RecBuf:=FRowBuffer;
  end;
end;

  TFxIniTable = class(TFDMemTable)
  private

  protected

    function GetActiveRecBuf(var RecBuf: NativeInt): Boolean; override;  -- здесь ошибка 
    [dcc32 Error] FxIniTable.pas(60): E2170 Cannot override a non-virtual method
    ......................................
    ......................................


function TFxIniTable.GetActiveRecBuf(var RecBuf: PChar): Boolean;
begin
   Result:=inherited GetActiveRecBuf(RecBuf);
   if Result and (FRowRecord>0) then begin
    FRowBuffer:=AllocRecordBuffer;
    Move(Records[FRowRecord-1].Data^,FRowBuffer^,GetRecordSize);
    FRowRecord:=0;
    RecBuf:=FRowBuffer;
  end;
end;

function TFxIniTable.GetActiveRecBuf(var RecBuf: PChar): Boolean;
begin
  Result:=inherited GetActiveRecBuf(RecBuf);
  if Result and (FRowRecord>0) then begin
    FRowBuffer:=AllocRecordBuffer;
    Move(Records[FRowRecord-1].Data^,FRowBuffer^,GetRecordSize);
    FRowRecord:=0;
    RecBuf:=FRowBuffer;
  end;
end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMyParent = class(TObject)
    iSave: Integer;
    Procedure MySave(I: Integer);
    Function  MyView: Integer;
  private
    { Private declarations }
  protected
    Procedure MyUpdate(I: Integer); //virtual;
  public
    { Public declarations }
  end;

type
  TMyChild = class(TMyParent)
  private
    { Private declarations }
  protected
    Procedure MyUpdate(I: Integer); reintroduce; //override;
  public
    { Public declarations }
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    O: TMyParent;
    C: TMyChild;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyParent.MySave(I: Integer);
begin
  MyUpdate(I);
end;

function TMyParent.MyView: Integer;
begin
  Result:=iSave;
end;

procedure TMyParent.MyUpdate(I: Integer);
begin
  ShowMessage('Update Parent');
  iSave:=I;
end;

procedure TMyChild.MyUpdate(I: Integer);
begin
  ShowMessage('Update Child');
  inherited MyUpdate(I);
  ShowMessage(IntToStr(inherited MyView+5));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  C:=TMyChild.Create;
  C.MySave(10);
  ShowMessage(IntToStr(C.MyView));
end;

end.