TWeightedColor

type TWeightedColor = record

public

  procedure Reset();

  procedure Add();

  procedure Subtract();

  procedure AddWeight();

  property AddCount: Integer; [r]

  property Color: TColor32; [r]

  property Weight: Integer; [r]

end;