Source position: graphutil.pp line 38
procedure DrawVerticalGradient(
Canvas: TCanvas;
ARect: TRect;
TopColor: TColor;
BottomColor: TColor
);