Wie kann ich herausfinden, welche Werte für TListBox.ScrollWidth verwendet werden sollen?

Ich versuche herauszufinden, wie ScrollWidth auf einem TListBox festgelegt wird, um die horizontale Bildlaufleiste zu steuern. Hier ist mein erster Versuch:

So sieht das Ergebnis aus, wenn die horizontale Bildlaufleiste so weit wie möglich nach rechts verschoben wird:

Beachten Sie, wie der letzte Teil des letzten Zeichens abgeschnitten wurde.

Wenn wir jetzt die Zeile auskommentieren, die die Schriftgröße des Formulars ändert, sieht das so aus:

Nun scheint es, dass die Änderung der Schriftgröße in den nachfolgenden Aufrufen von TextWidth nicht berücksichtigt wurde.

Meine Frage ist also, welchen Code ich verwenden muss, um ScrollWidth genau zu setzen, basierend auf dem aktuellen Inhalt der Listbox.