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

[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;

это неверно?