Problemas con ListBox

[NEG1414]

En primer lugar gracias por atenderme.

Al leer tu respuesta he optado por probar el codigo en otro PC el codigo que he puesto es el siguiente:

void __fastcall TForm1::FormActivate(TObject *Sender)
{

TStringList  *Lista  = new TStringList;

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

    Lista->Sorted=true;


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

}

Lo he pegado,Te juro que sigue Haciendo lo mismo:

Pulso la tecla A: salta a AB

Pulso la tecla B: salta a BA (quiero que salte a B)

Pulso la tecla c : Salta a C

Pulso la tecla a : Salta a AB (quiero que salte a A)


NOTA: DONDE HAS INCLUIDO EL CODIGO?.

Gracias otra vez