procedure AddChararacter(ch: CharacterClass);

This is AddChararacter, a member of class TLangWizardData.