TListBox und MakeCurrentVisible

Errraddicator

Hi,
ich habe ein Problem mit meiner TListBox.
Meine Daten sind drin, klappt auch alles wunderbar. Jetzt habe ich über meiner ListBox ein Textfeld mit dessen Hilfe ich einen Eintrag in der ListBox suchen kann. Das klappt auch. Er markiert mir die Einträge wie ich sie gerne hätte.
Dann kommt das eigentliche Problem:

Wenn ich einen Eintrag suche (und finde) der nicht mehr im dargestellten Bereich der ListBox ist, scrollt die ListBox nicht automatisch zu diesem neu markierten Eintrag. Auch mit MakeCurrentVisible passiert nichts in diese Richtung.
Komischerweise aber nur wenn ich MultiSelect auf true setze.
Habe ich das Flag auf false gesetzt, funktioniert alles wie ich es gerne hätte.

Wie kann ich dieses automatische scrollen zum markierten Eintrag auch mit MultiSelect == true realisieren?

Danke im Voraus

cu Errraddicator

Jansen

ListBox1->Selected[8] = true;
  ListBox1->Selected[6] = true;
  ListBox1->Selected[4] = true;
  ListBox1->TopIndex = 4;