ListBox, ограничение списка элементов с помощью шаблона

// Заносим фильтр в эдит
// Парси строчку в массив чаров
for(...) {
 if (ListBox->Items->Strings[i][1] != [маccив_чаров[0] ||
     ListBox->Items->Strings[i][1] != [маccив_чаров[1] ||
     ListBox->Items->Strings[i][1] != [маccив_чаров[2]
     // и т.д., тут хорошо бы учитывать количество алиментов массива
     ) {
  ListBox->Items.Delete[i]; // или как там удаляется, не помню
}

//---------------------------------------------------------------------------
#ifndef TMyListBoxH
#define TMyListBoxH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TMyListBox : public TListBox
{
private:
protected:
    String FTemplate;
    void _fastcall SetTemplate(String Template) { FTemplate= Template;}
    String _fastcall GetTemplate(String Template) { return FTemplate;}
 
public:
    __fastcall TMyListBox(TComponent* Owner);
 
    void _fastcall Apply();
 
__published:
 
  __property String Template={read=GetTemplate,write=SetTemplate};
 
};
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
#include <boost/regex.hpp>
#include <string>
 
using namespace std;
using namespace boost;
 
#pragma hdrstop
 
#include "TMyListBox.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TMyListBox *)
{
    new TMyListBox(NULL);
}
//---------------------------------------------------------------------------
__fastcall TMyListBox::TMyListBox(TComponent* Owner)
    : TListBox(Owner)
{
FTemplate = L".*";
}
//---------------------------------------------------------------------------
void _fastcall TMyListBox::Apply()
{
wregex re(FTemplate.w_str());
 
Items->BeginUpdate();
 
for(int i=0;i<Items->Count;)
 {
 if(!regex_match(Items->Strings[i].w_str(),re)){ Items->Delete(i); continue;}
 else i++;
 }
 
Items->EndUpdate();
}
//---------------------------------------------------------------------------
namespace Tmylistbox
{
    void __fastcall PACKAGE Register()
    {
        TComponentClass classes[1] = {__classid(TMyListBox)};
        RegisterComponents(L"Samples", classes, 0);
    }
}
//---------------------------------------------------------------------------

TMyListBox *LB;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
LB = new TMyListBox(this);
LB->Parent = this;
LB->Top=Edit2->Top+30;
LB->Left=Edit2->Left;
 
LB->Items->Add("a1bcd");
LB->Items->Add("a2bce");
LB->Items->Add("abcd");
LB->Items->Add("arcbd");
LB->Items->Add("abcde");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete LB;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BApplyClick(TObject *Sender)
{
LB->Template=Edit1->Text;
LB->Apply();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BAddStringClick(TObject *Sender)
{
LB->Items->Add(Edit2->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
LB->Template=Edit1->Text;
}
//---------------------------------------------------------------------------