Для этого нужно использовать инструмент "Gradient Fill" (заливка градиентом). Ниже приведен пример кода на языке Pascal (Delphi), чтобы создать прямоугольник и заполнить его градиентом:

procedure TForm1.FormCreate(Sender: TObject);
var
gradBrush: TGradientBrush;
begin
gradBrush := TGradientBrush.Create(TPointF.Create(0, 0), TPointF.Create(0, 100),
TAlphaColorRec.Red, TAlphaColorRec.Blue);
Canvas.FillRect(RectF(10, 10, 110, 110), 0, 0, [], 1, gradBrush);
end;

Этот код создает прямоугольник со значениями (10, 10, 110, 110) и заполняет его линейным градиентом от красного до синего цвета. Вы можете настроить параметры градиента, такие как начальную и конечную точки, цвета и направление, чтобы получить нужный эффект.