Rectangle verzerrt bei Bewegung

[SunSet]

Also ich habe das jetzt mal versucht zu löschen, jedoch funktioniert das auch nicht wie ichs gern möchte. Ich habe folgenden Code im MouseMove-Ereignis:

Delphi-Quellcode:

  if Klick then begin
    with imgZeichenflaeche.Canvas do begin
      Pen.Mode := pmNotXor;
      Pen.Color := clWhite;
      Rectangle(x1,y1,x2,y2);
      Pen.Color := Farbe;
      Rectangle(PenPos.X,Penpos.Y,X,Y);
      x1 := PenPos.X;
      y1 := PenPos.Y;
      x2 := X;
      y2 := Y;
    end;{with-anweisung}
  end;

Es ist immernoch wie vorher das alte Rectangle zu sehen. Warum? Ich übermale es doch mit einem weißen, oder etwa nicht?