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