Rechtecke auf TImage ziehen mit DrawFocusRect

[Delphi-Narr]

Hallo, ich möchte gerne auf TImage ein Rechteck "ziehen", ähnlich wie bei Zeichenprogrammen. Dies soll mit über die Befehle OnMouseDown und Move geschehen. Beim Drücken der Maustaste wird der Startpunkt festgelegt, jetzt soll man das Rechteck ziehen können. Mein Problem: Das Rechteck wird gezogen, es erscheinen aber innerhalb dieses Rechtecks seeeehr viele andere Rechtecke, alle mit gestrichelter schwacher Linie.
Was kann ich machen?

Delphi-Quellcode:

procedure TForm1.BildMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Bild.Canvas.MoveTo(X,Y);
     Zeichnen:=True;
     Bild.Canvas.Pen.mode:=pmxor;
     Xf:=X;
     Yf:=Y;
end;

procedure TForm1.BildMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if not Zeichnen then exit;
     if Werkzeug.ItemIndex=1 then //Das Rechteck-Werkzeug
     begin
          Bild.Canvas.DrawFocusRect(Rect(Xf,Yf,X,Y));
     end;     
end;

Liebe Grüße!