unit ClassUnit;interfacetype
 TParent = class
  protected
    procedure OneProc; virtual;
    // procedure OneProc; override;override;
 end; TChild = class(TParent)
   private
     FNumber: integer;   public
     procedure OneProc; override;   published
    property Nummber: integer read FNumbwer write FNumbwer;//就是这一句
 end;
implementationuses Dialogs;{ TParent }
procedure TParent.OneProc;
begin
   ShowMessage('TParent');
end;{ TChild }
procedure TChild.OneProc;
begin
  inherited;
  ShowMessage('TChild');
end;end.
//[Error] ClassUnit.pas(20): Field or method identifier expected