unit BoldCase;

interface

type
  TBoldObject = class

  end;

  TBoldObjectList = class
  private
    function GetBoldObject(index: Integer): TBoldObject;
    procedure SetBoldObject(index: Integer; NewObject: TBoldObject);
  public
    procedure Add(BoldObject: TBoldObject);
    property BoldObjects[index: Integer]: TBoldObject read GetBoldObject write SetBoldObject; default;
  end;

  TVehicle = class(TBoldObject)

  end;

  TVehicleList = class(TBoldObjectList)
  private
    function GetBoldObject(index: Integer): TVehicle;
    procedure SetBoldObject(index: Integer; NewObject: TVehicle);
  public
    procedure Add(BoldObject: TVehicle);
    property BoldObjects[index: Integer]: TVehicle read GetBoldObject write SetBoldObject; default;
  end;

implementation

{ TBoldObjectList }

procedure TBoldObjectList.Add(BoldObject: TBoldObject);
begin

end;

function TBoldObjectList.GetBoldObject(index: Integer): TBoldObject;
begin

end;

procedure TBoldObjectList.SetBoldObject(index: Integer; NewObject: TBoldObject);
begin

end;

{ TVehicleList }

procedure TVehicleList.Add(BoldObject: TVehicle);
begin

end;

function TVehicleList.GetBoldObject(index: Integer): TVehicle;
begin

end;

procedure TVehicleList.SetBoldObject(index: Integer; NewObject: TVehicle);
begin

end;

end.