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