Geht auch ohne viel Aufwand in dem man ein TImage entsprechend platziert und auf dessen OnClick reagiert.
Oder ein kleines TPanel (BevelOuter=bvNone), TPaintBox, TShape (Brush.Style=bsClear und Pen.Style=psClear) oder oder oder
Image und PaintBox haben den Vorteil, dass man sie im Designer sieht. Oder die Anderen erst zur Laufzeit im Constructor bzw. OnCreate unsichtbar machen.
Wobei PaintBox von den Beiden das Ressourcenschonenstere ist, da eh kein Bild gemalt werden wird.