Если определен порожденный тип, то методы порождающего типа наследуются, однако при желании они могут переопределяться. Для переопределения наследуемого метода попросту описывается новый метод с тем же именем, что и наследуемый метод, но с другим телом и (при необходимости) с другим множеством параметров. Определим дочерний по отношению к TEmployee тип, представляющий работника, которому платится часовая ставка, в следующем примере: const PayPeriods = 26; { периоды выплат } OvertimeThreshold = 80; { на период выплаты } OvertimeFactor = 1)5; { почасовой коэффициент } type THourly = object(TEmployee) Time: Integer; procedure Init(AName, ATitle: string; ARate: Real, Atime: Integer); function GetPayAmount: Real; end; procedure THourly. Init(AName, ATitle: string; ARate: Real, Atime: Integer); begin TEmployee. Init(AName, ATitle, ARate); Time:= ATime; end; function THourly. GetPayAmount: Real; var Overtime: Integer; begin Overtime:= Time – OvertimeThreshold; if Overtime > 0 then GetPayAmount:= RoundPay(OvertimeThreshold * Rate + Rate OverTime * OvertimeFactor * Rate) else GetPayAmount:= RoundPay(Time * Rate) end; Вызывая переопределяемый метод, необходимо быть уверенным в том, что порожденный тип объекта включает функциональность родителя. Кроме того, любое изменение в родительском методе автоматически оказывает влияние на все порожденные. Важное замечание: хотя методы могут быть переопределены, поля данных переопределяться не могут. После того как было определено поле данных в иерархии объекта, никакой дочерний тип не может определить поле данных в точности с таким же именем.