CanonSharp/OpenSet/10_sub2.pas