Problemas con ListBox

[NEG1414]

Buenas:

Dentro de un Listbox cuyos elementos estan ordenados alfabeticamente al pulsar una tecla alfanumerica el item que me selecciona es siempre el segundo del grupo de items que empiezen por la tecla pulsada..nunca el primero (a mi os aseguro que me pasa) .

Alguien sabe porque y como puedo hacer que la posicion sea el primeros del grupo de items que empiezen por la tecla pulsada.

TStringList  *Lista  = New TStringList

     Lista->Add("A")
     Lista->Add("AB")   
     Lista->Add("AC")
     Lista->Add("B")
     Lista->Add("BA")
     Lista->Add("C")
     ...

     Lista->Sorted;


     for (int i=0;i<Lista->Count;i++)
       {
           ListBox1 ->Items->Text = Lista->Text 
       }

Gracias.