[NumLock]

чтобы не начинать холивар не буду писать разумно или нет описывать класс родителя и его потомков в одном модуле
отвечу так: к примеру модуль Classes:

Код:

type

  TStrings = class(TPersistent)
  private
  ...

  TStringList = class(TStrings)
  private
  ...