Холст: Как получить круговой градиент?

Question

Есть ли способ нарисовать дугу с круговым градиентом в Firemonkey (10.3)? Я попытался следующий код, но это дает мне «зеленый-красный-зеленый» вместо «зеленый-красный».

with PaintBox1.Canvas do
begin
  BeginScene;

  Stroke.Kind := TBrushKind.Gradient;
  Stroke.Thickness := 20;
  Stroke.Cap := TStrokeCap.Round;
  Stroke.Gradient.Style := TGradientStyle.Linear;
  Stroke.Gradient.Color := TAlphaColors.Green;
  Stroke.Gradient.Color1 := TAlphaColors.Red;

  DrawArc(PointF(250,250),PointF(100,100),-250,320,1);

  EndScene;
end;

Результат: