[FMX]Auf Canvas zeichnen

[Union]

Ich versuche in einer FMX iOS-HD-Anwendung auf einen Canvas zu zeichnen. Funktioniert nur leider nicht Hat das schon jemand geschafft? Hier mein Code (Canvas ist ein TForm.Canvas, hab es aber auch schon mit einem Image versucht):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Stroke.Color := claBlue;
  Canvas.Stroke.Kind:= TBrushKind.bkSolid;
  Canvas.DrawRect(RectF(0,0,50,50),0,0,AllCorners,1);
end;