[FMX]Positionner correctement la flèche d'une colonne de TStringGrid

Bonjour,

J'essai d'ajouter une fonction de ordonnancement à une TStringGrid (la fonction classique : appuie sur l'entête avec une flèche qui indique le sens).

Mon problème est que je n'arrive pas à positionner la flèche à la fin du texte.

Pièce jointe 138801

Comme on peut le voir sur l'image, la flèche s'ajoute bien mais je ne trouve pas comment faire pour calculer sa position pour la mettre juste après le texte.
J'avais pu le faire sur un TTreeViewitem (TreeviewItem->MinItemSize.Width) mais là, je ne trouve pas de solution ou d'équivalence.
J'ai accès au THeader et THeaderItem.
La propriété Width me donne la taille complète (y compris la partie vide).

Avez-vous une solution ?

Merci.

ps : j'utilise Firemonkey et C++Builder XE4

J'ai eu une réponse dans la partie FMX du forum Delphi.

J'utilise donc le code suivant pour avoir la taille de texte.

Code:

---

Canvas->TextWidth(TempItem->Text)

---