Fehler bei TListBox ?

[Amateurprofi]

Ich habe einen merkwürdigen Fehler bei TListBox bemerkt.

Ich habe eine Listbox mit Style = lbVirtualOwnerDraw.

Setze ich Count auf einen Wert von z.B. 66000 und ziehe dann den ScrollButton ganz nach unten, dann werden nicht die am Ende der Liste stehenden Einträge angezeigt, sondern Einträge aus dem Anfangsbereich der Liste.

Setze ich Count auf deutlich höhere Werte, zum Beispiel 6600000 dann tritt dieser Fehler schon im mittleren Bereich der Scrollleiste auf.

Könnt ihr das mal testen und berichten ob der Fehler auch bei euch auftritt?
Danke

Im Anhang ein kleines Testprojekt.
Das Formular enthält 3 Edits und eine ListBox.
In das obere Edit wird eingegeben, wieviel Einträge die ListBox enthalten soll.
Im OnChange wird ListBox1.Count auf diesen Wert gesetzt.
Die beiden anderen Edits dienen der Kontrolle, im mittleren Edit wird der Wert ausgegeben auf den Count gesetzt werden soll, in der unteren der Wert, den Count danach tatsächlich angenommen hat.