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