Galkov, извини, что напрягаю, но просто в ListBox, после изменений в WinList, точка doEnsureVisible и сама procedure THIListBox._work_doEnsureVisible - не нужны. Все прекрасно работает при подаче индекса на doSlect.
За StringTable отдельное спасибо

[size=-2]------ Добавлено в 11:54
И в StringTable выделение решается очень просто (одним Hub-ом)
code_1189.txt
так что никаких претензий - одни благодарности