Source position: graphutil.pp line 57
procedure DrawGradientWindow(
Canvas: TCanvas;
WindowRect: TRect;
TitleHeight: Integer;
BaseColor: TColor
);