edit + listbox

[ecfisa]

Hola fedee.

osea q vayan desapareciendo los q no cumplen con las letras ingresadas

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
 int i;
  boolean Found= FALSE;
  /* Eliminar no coincidentes */
  for(i=0;i<ListBox1->Count;i++)
    if(ListBox1->Items->Strings[i].SubString(1,Edit1->Text.Length()) !=
            Edit1->Text) ListBox1->Items->Delete(i);
  /* Posicionarse */
  for(i=0;i< ListBox1->Count && !Found; i++){
    Found = ListBox1->Items->Strings[i].SubString(1,Edit1->Text.Length()) ==
            Edit1->Text;
}

Pero el problema que veo con eso es que si el usuario se arrepiente, luego de haber tipeado algunos caracteres,
ya no tendrá disponible los otros items.

Saludos