PenMode pmCopy klappt nicht

[lkz633]

Hallo,

mit

Delphi-Quellcode:

Canvas.Pen.Mode := pmNot;
  Canvas.Brush.Style := bsClear;

kann ich wunderbar einen Rahmen auf einem Canvas ziehen, mit

Delphi-Quellcode:

Canvas.Pen.Mode := pmCopy;
  Canvas.Brush.Style := bsClear;
   canvas.pen.color:=clgreen;

bekomme ich jedoch beim ziehen mit der Maus nicht nur einen Rahmen, sondern beliebig viele.

Kann ich dies beheben?

Danke und Gruss
lkz633