Rectangle verzerrt bei Bewegung

[SunSet]

Ich programmiere zurzeit ein Zeichenprogramm ähnlich wie Paint. Mein Programm hat schon diverse Funktionen wie Freihand zeichnen, Pipette, etc., nur beim Rectangle und der Ellipse habe ich ein Problem, da beim bewegen das alte Viereck bleibt und das ist natürlich nicht richtig. Ich habe folgenden Code in den Maus-Ereignissen meiner Zeichenflaeche:

Delphi-Quellcode:

procedure TForm1.imgZeichenflaecheMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Farbe: TColor;
begin
  Klick := true;
  imgZeichenflaeche.Canvas.MoveTo(x,y);
end;{ImageMouseDown}

procedure TForm1.imgZeichenflaecheMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if Klick = true then begin
    with imgZeichenflaeche.Canvas do begin
      Pen.Mode := pmNotXor;
      Rectangle(PenPos.X,Penpos.Y,X,Y);
    end;
  end;
end;{ImageMouseMove}

procedure TForm1.imgZeichenflaecheMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  klick := false;
end;{ImageMouseUp}

Das Viereck lässt sich vergrößeren aber es bleibt halt das alte. Ich habe versucht das zu löschen nur irgendwie weiß ich gerade nicht wie ich die richtigen Koordinaten für das alte Viereck, welches gelöscht werden soll, ermitteln kann. Wäre nett wenn mir da jemand helfen könnte