delphi 中 inherited 具体如何使用