Ребят, тут Паскаль АВС Как закрасить эту фигуру градиентом от черного до белого?

uses     GraphABC; begin     Window.Init(0, 0, 300, 300, clWhite);     window.CenterOnScreen();     Pen.Color := clSilver;     Pen.Width := 3;     Brush.Style := bsGradient;     Brush.Color := clBlack;     Brush.GradientSecondColor := clWhite;     Rectangle(50, 50, 250, 250); end.