Rechtecke auf TImage ziehen mit DrawFocusRect

[Delphi-Narr]

Naja, einen Farbeimer, ein Radiergummi und einen Bleistift bekommt man mit Shapes nur nicht hin, also müsste ich eine Kombi machen.

MouseDown: SHapeerstellen und über das Image blenden
MouseMove: Shape ziehen
MouseUp: Rechteck auf Maße des Shapes erstellen und Shape löschen

Ist halt leider ein kleiner Umweg. Wäre mir halt anders lieber. Ich denke in Paint klappt das auch. Wie ist das mit einer PaintBox? Sind ja die gleichen Befehle und ich hab auch dort dieses Darstellungsproblem.