Position Elemente in TImage ???

[juniorA]

Ich habe ein Formular. Auf dem Formular ist ein TImage worin ich zeichnen will. Wenn auf das Image ein Rechteck ausgeben will, beziehen sich die Koordinaten auf das Formular und nicht auf das Image. Was mach ich falsch?

Delphi-Quellcode:

unit zf;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.Objects;

type
  Tzeichnung = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  zeichnung: Tzeichnung;

implementation

{$R *.fmx}


procedure Tzeichnung.Button1Click(Sender: TObject);
var  MyRect: TRectF;
begin
  MyRect.Create(1, 1, 150, 200);
  with zeichnung.Image1.Canvas do
  begin
    BeginScene;
    Stroke.Kind      := TBrushKind.Solid;
    Stroke.Color     := TAlphaColors.Blue;
    Stroke.Thickness := 2;
    DrawRect(MyRect, 10, 10, AllCorners, 1.0);
    EndScene
  end;
end;

end.