Bonjour à vous deux.

Je n'ai pas lu les derniers posts. Donc risque de faire double emploi.
Je réponds au post #13.

Dans un TScrollBox, pour savoir si une scrollbar est effectivement visible, il ne faut pas interroger sa propriété Visible mais les propriétés Range et Page.
La scrollbar est visible si Range - Page > 0.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
with scrollbox1.HorzScrollBar do
   if Range - Page > 0 then // barre visible
     Position:= (Range - Page) div 2; // positionnement au centre
EDIT : Oups, pas encore bien réveillé : if Range > Page

Amicalement
Thierry