procedure Add(blackRun: BlackRun; ascCnt: integer; descCnt: integer; totalCnt: integer; parts: integer); overload;

This is Add, a member of class CharacterClass.