Add or replace the subnode with AName and set its value to represent the TColor AValue. If AValue = ADefault, and WriteOnDefault = False, no subnode will be added.