Rechtecke auf TImage "ziehen"

[Delphi-Narr]

Hallo,
ich bin gerade dabei, eine Art Paintprogramm zu schreiben. Dabei gibt es nur ein kleines Problem:

Ich möchte Rechtecke und Ellipsen auf der TImage Komponente aufziehen.
Ich abeite mit MouseDown, MouseMove und MouseUp. Bei MouseDown wird der Ursprungspunkt des Rechtecks in den Variablen x2 und y2 gespeichert. Außerdem wird die TBitmap Variable "Alt" auf das aktuelle Bitmap der TImage gesetzt.
Bei MouseMove soll wird dann erst der alte Zustand wiederhergestellt werden

Image1.picture.bitmap:=Alt; und dann das Rechteck gezogen werden.

Image1.Canvas.Rectangle(X2,Y2,X,Y); Dabei bekomme ich leider immer eine Zugriffsverletzung...
Wo ist der Fehler oder kann man das auf diese Art gar nicht machen. OnFormCreate habe ich die Variable mit


Alt:=TBitmap.Create; initialisiert...

Liebe Grüße!