GradientFillAngle

procedure GradientFillAngle(

  aCanvas: TCanvas;

  aRect: TRect;

  fromColor: TColor;

  toColor: TColor;

  MaxDegrad: Byte;

  AngleDegree: Word;

  const ClipRect: Boolean = True;

  const Buffer: TBitmap = Nil

);