TColor class done