Поиск в ListBox

// ---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    L = new TStringList;
    ListBox1->Style = lbVirtual;
    for(int i = 1; i < 22000; i++) L->AddObject(IntToStr(i), (TObject*)i);
    L->AddObject("1 first", (TObject*)22000);
    L->AddObject("1 second", (TObject*)22001);
    L->AddObject("2 test", (TObject*)22002);
    L->AddObject("2 temp", (TObject*)22003);
    ListBox1->Count = 22003; // 4
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1Data(TWinControl *Control, int Index,
    UnicodeString &Data)
 
{
    Data = L->Strings[Index];
}
 
int __fastcall MyCompare(TStringList *List, int Index1, int Index2)
{
    int obj1 = (int)(List->Objects[Index1]);
    int obj2 = (int)(List->Objects[Index2]);
 
    if (obj1 * obj2 > 0)
    {
        return abs(obj1) - abs(obj2);
    }
    else
        return (obj1 < 0 ? -1 : 1);
}
 
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
    int count = 0;
    if(!Edit1->Text.Trim().IsEmpty())
    {
        for(int i = 0; i < L->Count; i++)
        {
            L->Objects[i] = (TObject*)(abs((int)(L->Objects[i])));
            if(L->Strings[i].Pos(Edit1->Text))
            {
                L->Objects[i] = (TObject*)(- (int)(L->Objects[i]));
                count += 1;
            }
        }
        L->CustomSort(MyCompare);
        ListBox1->Count = count;
    }
    else
    {
        for(int i = 0; i < L->Count; i++)
        {
            L->Objects[i] = (TObject*)(abs((int)(L->Objects[i])));
        }
        L->CustomSort(MyCompare);
        ListBox1->Count = L->Count;
    }
 
    ListBox1->Refresh();
}

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
    Caption = IntToStr(abs((int)(L->Objects[ListBox1->ItemIndex])));
}

obj1 < 0 ? -1 : 1

TStringList* L;
 
int __fastcall MyCompare(TStringList *List, int Index1, int Index2)
{
    int obj1 = (int)(List->Objects[Index1]);
    int obj2 = (int)(List->Objects[Index2]);
 
    if (obj1 * obj2 > 0)
    {
        return abs(obj1) - abs(obj2);
    }
    else
        return (obj1 < 0 ? -1 : 1);
}
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
int count = 0;
    if(!Edit1->Text.Trim().IsEmpty())
    {
        for(int i = 0; i < L->Count; i++)
        {
            L->Objects[i] = (TObject*)(abs((int)(L->Objects[i])));
            if(L->Strings[i].Pos(Edit1->Text))
            {
                L->Objects[i] = (TObject*)(- (int)(L->Objects[i]));
                count += 1;
            }
        }
        L->CustomSort(MyCompare);
        ListBox1->Count = count;
    }
    else
    {
        for(int i = 0; i < L->Count; i++)
        {
            L->Objects[i] = (TObject*)(abs((int)(L->Objects[i])));
        }
        L->CustomSort(MyCompare);
        ListBox1->Count = L->Count;
    }
 
    ListBox1->Refresh();
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ListBox1->Style = lbVirtual;
}
 
void __fastcall TForm1::ListBox1Data(TWinControl *Control, int Index, UnicodeString &Data)
{
    Data = L->Strings[Index];
}
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    L = new TStringList();
    ListBox1->Count = objOne.InsertListBox(L, ComboBox1->ItemIndex ,(int)ComboBox1->Items->Objects[ComboBox1->ItemIndex]); // Тут мы заполняем ListBox и возвращаем Count
 
// Таким образом: L->AddObject(Data<wchar_t>(byte), (TObject*)(byte - skeep)); // То есть просто добавляем объект с именем и "объектом"
}

L->AddObject(Data<wchar_t>(byte), (TObject*)(byte - skeep));