Производные классы, то, что не наследуется Опции

[Jill]

подскажите, плз!
креплю проект

задание таково:
Создать класс поезд, имеющий стоимость билета. Определить конструктор, деструктор и методы доступа (чтения и записи) к полям класса.
Создать два производных класса:
1)Класс - общий вагон, имеющий стоимость билета и количество посадочных мест.
2)Класс – купейный вагон, имеющий стоимость билета, количество посадочных мест, стоимость постели.

не выходит с количеством посадочных мест (общий вагон и купейный) и стоимостью постели (купейный вагон)
то бишь то, что не наследуется от родительского класса

знаю, что "истина где-то рядом", но не доходит

помогите, пожалуйста

[Jill]

по-моему, классы у меня объявленны в другом юните...

type
  TRain = class
   private 
    Stoim: real;
    Mesta: real;
    Postel: real; 
   public 
    prInRec: Boolean; 
    Constructor Create;
    function InputRecord: Boolean; virtual;
    procedure OutputRecord;
  end;

  TObschVagon = class(TRain)
   public     
    function InputRecord: Boolean; override; 
  end;

  TKupVagon = class(TRain)
   public 
   function InputRecord: Boolean; override; 
  end;

  TForm2 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RichEdit1: TRichEdit;
  end;

это неверно?

[hardcase]

В принципе, верно, но вот так будет лучше:

// Car = Carriage

TCarriage = class  // суперкласс любого вагона
  private
    fNextCar: TCarriage;
  public
    constructor Create; virtual;
    procedure HitchCarriage(Car: TCarriage); //прицепить вагон
    property NextCar: TCarriage read fNextCar;
end;//of class

TPassengerCar = class(TCarriage)  // пассажирский вагон
  private
    fSeatsCount: integer;
    fSeatCost: real;
  public
    costructor Create; override;
    property SeatsCount: integer read fSeatsCount;
    property SeatCost: real read fSeatCost;
end;//of class

TDormitoryCar = class(TPassengerCar)  // купе
  public
    constructor Create; override;
end;//of class

TParlorCar = class(TPassengerCar) // общий вагон
  public
    constructor Create; override;
end;//of class