Reference IGradientBrush

  IGradientBrush = interface(IBrush)
  public
    { Add a color stop at an offset from 0 to 1 }
    procedure AddStop(Color: TColorB; Offset: Float);
    { How the gradient fills beyond its end points }
    property Wrap: TGradientWrap read GetWrap write SetWrap;
  end;