Firemonkey Mouse Buttonstate abfragen

[t2000]

Hallo Leute,

ich möchte gerne den Status der/einer Maustaste abfragen, wenn die Maus in ein Element gezogen wird.
Also am besten in der Eventfunction OnMouseEnter.

Aus diesem Grund:
Ich habe ein Rectangle als Button. Hier ändert sich die Farbe bei MouseOver/Enter und ändert sich nochmal bei MouseDown. Wenn ich die Maus jetzt rausbewege, wechselt die Farbe auf "normal". Lasse ich aber die Maustaste gedrückt und ziehe wieder in das Element herein, möchte ich den "Gedrückt-Status" wieder herstellen (da der Anwender nicht losgelassen hat). Alternativ könnte ich das Loslassen der Taste abfabgen. Aber das kann ja auch außerhalb der Anwendung erfolgen.

Jemand eine Idee?

Danke, vG Thomas