Lass mal das with weg.
Delphi-Quellcode:
c: TCanvas;
...
c := Image1.Canvas;
c.BeginScene;
c.Stroke.Kind := TBrushKind.Solid;
c.Stroke.Color := TAlphaColors.Blue;
c.Stroke.Thickness := 2;
c.DrawRect(MyRect, 10, 10, AllCorners, 1.0);
c.EndScene;
Zudem sollte man sich nie auf eine bestimme Instanz beziehen (zeichnung)