procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); override;

This is ActionChange, a member of class TTntPaintBox.