title: How to create the radial gradient in Firemonkey
body: <p>I have a FireMonkey form with the following code on the OnPaint event of the form. I was expecting a ball with a radial gradient but I only get a red ball, no gradient. Question is what am I doing wrong. Running it on XE3. If I change the gradient style to gsLinear, I do get a linear gradient. Is there something else I have to specify to get the radial gradient to show?</p>
  
  <pre><code> procedure TForm2.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
   var MyRect : TRectF;
   begin
     MyRect.Create (85, 85, 115, 115);
  
     Canvas.Fill.Gradient.Style := TGradientStyle.gsRadial;
     Canvas.Fill.Gradient.Color := claRed;
     Canvas.Fill.Gradient.Color1 := claBlue;
     Canvas.Fill.Kind := TBrushKind.bkGradient;
     Canvas.FillEllipse (MyRect, 100);
   end;
  </code></pre>