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

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.