Honestly, for how many versions now has the following got through?
unit FMX.Types; //... type TGradientPoint = class(TCollectionItem) private FColor: TAlphaColor; FOffset: Single; function GetColor: TAlphaColor; procedure SetColor(const Value: TAlphaColor); public ...
More...