Сравнить 2 списка

for(int i=0;i<list1->Count;i++)
        {
                for(int j=0;j<list2->Count;j++)
                {
                        AnsiString find = list2->Strings[j].UpperCase();
                        if(list1->Strings[i].SetLength(list1->Strings[i].Length()-4).UpperCase()==find)
                        {

    int k = 0;
    for (int i = 0; i < ListBox1->Count; i++) {
        for (int j = 0; j < ListBox2->Count; j++) {
            AnsiString a = ListBox2->Items->Strings[j];
            if (ListBox1->Items->Strings[i] == a) {
                ListBox3->Items->Strings[k] = a;
                k++;
            }
        }
 
    }

       int k = 0;
    for (int i = 0; i < exep->Count; i++) {
        for (int j = 0; j < papka->Count; j++) {
            AnsiString a = papka->Strings[j];
            if (exep->Strings[i] == a) {
                vir->Strings[i] = a;
                Log->Lines->AddStrings(vir);
                k++;

 exep = new TStringList;   // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
 papka = new TStringList;   // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
 vir = new TStringList;   // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList

TStringList * list1 = new TStringList;
TStringList * list2 = new TStringList;
TStringList * list3 = new TStringList;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    for (int i = 0; i < 10; i++) {
        list1->Add(i);
    }
    for (int i = 0; i < 10; i++) {
        list2->Add(i+6);
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo1->Clear();
    int k = 0;
    for (int i = 0; i < list1->Count; i++) {
        for (int j = 0; j < list2->Count; j++) {
            AnsiString a = list2->Strings[j];
            if (list1->Strings[i] == a) {
                list3->Add(a);
                k++;
                Memo1->Lines->Add(a);
            }
        }
    }
}

#include <vector>
#include <algorithm>
#include <iterator>
//---------------------------------------------------------------------------
std::vector<String> v1,v2,v3;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0;i<Memo1->Lines->Count;i++) v1.push_back(Memo1->Lines->Strings[i]);
for(int i=0;i<Memo2->Lines->Count;i++) v2.push_back(Memo2->Lines->Strings[i]);
 
std::sort(v1.begin(),v1.end());
std::sort(v2.begin(),v2.end());
std::set_intersection(v1.begin(),v1.end(),v2.begin(),v2.end(),back_inserter(v3));
 
for(unsigned i=0;i<v3.size();i++) Memo3->Lines->Add(v3[i]);
}
//---------------------------------------------------------------------------

for(int i=0;i<Memo1->Lines->Count;i++) v1.push_back(Memo1->Lines->Strings[i]);
for(int i=0;i<Memo2->Lines->Count;i++) v2.push_back(Memo2->Lines->Strings[i]);
 
std::sort(v1.begin(),v1.end());
std::sort(v2.begin(),v2.end());
std::set_intersection(v1.begin(),v1.end(),v2.begin(),v2.end(),back_inserter(v3));
 
for(unsigned i=0;i<v3.size();i++) Memo3->Lines->Add(v3[i]);

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo3->Clear();     // Очистка результирующий список
int size1= Memo1->Lines->Count;  // размер первого списка
int size2= Memo2->Lines->Count;  // размер второго списка
 
for(int i=0; i<size1; i++)  // Цикл по первому списку
 for(int j=0; j<size2; j++) // Цикл по втрому списку
  {
    if( Memo1->Lines->Strings[i] == Memo2->Lines->Strings[j] ) // Найдена общаяя строка
     {
        Memo3->Lines->Add( Memo1->Lines->Strings[i]);// добавить в результирующий список эту строку
        break;// закончить искать во втором списке и перейти к следующей строке первого списка
     }
  }
}
//---------------------------------------------------------------------------

int k = 0;
    for (int i = 0; i < exep->Count; i++) {
        for (int j = 0; j < papka->Count; j++) {
          {
    if( exep->Strings[i] == papka->Strings[j] ) // Íàéäåíà îáùàÿÿ ñòðîêà
     {
        vir->Add( exep->Strings[i]);// äîáàâèòü â ðåçóëüòèðóþùèé ñïèñîê ýòó ñòðîêó
        Log->Lines->AddStrings(vir);
        break;// çàêîí÷èòü èñêàòü âî âòîðîì ñïèñêå è ïåðåéòè ê ñëåäóþùåé ñòðîêå ïåðâîãî ñïèñêà

TStringList  *exep, *papka, *vir;
//---------------------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner)
    : TForm(Owner)
{
 
    exep = new TStringList;   // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
    papka = new TStringList;   // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
    vir = new TStringList;   // Ñîçäàíèå ýêçåìïëÿðà êëàññà TStringList
}
//---------------------------------------------------------------------------
__fastcall TMain::~TMain( ) {
    delete exep;  //îñâîáîæäàåì ïàìÿòü
    delete papka;  //îñâîáîæäàåì ïàìÿòü
    delete vir;  //îñâîáîæäàåì ïàìÿòü
}
//-------------------------------------------------------------------
TSearchRec sear;
 AnsiString FileNoExt;
 AnsiString Path=Edit1->Text;
 if(FindFirst(Path +"\\"+ "*.exe", faAnyFile, sear) == 0)
 {
 do
 {
 FileNoExt = ChangeFileExt( sear.Name,"" );
 exep->Add(FileNoExt);
 }
 while(FindNext(sear) == 0);
 }
 FindClose(sear);
 {
    AnsiString Dir = Edit1->Text+"\\*" ;
    TSearchRec sr;
    for (int r=FindFirst(Dir, faAnyFile, sr);!r;r=FindNext(sr))
      if ((sr.Attr&16)&&(sr.Attr&7))
        papka->Add(sr.Name);
    FindClose(sr);
    }
    {
 int k = 0;
    for (int i = 0; i < exep->Count; i++) {
        for (int j = 0; j < papka->Count; j++) {
          {
    if( exep->Strings[i] == papka->Strings[j] ) // Íàéäåíà îáùàÿÿ ñòðîêà
     {
        vir->Add( exep->Strings[i]);// äîáàâèòü â ðåçóëüòèðóþùèé ñïèñîê ýòó ñòðîêó
        Log->Lines->AddStrings(vir);
        break;// çàêîí÷èòü èñêàòü âî âòîðîì ñïèñêå è ïåðåéòè ê ñëåäóþùåé ñòðîêå ïåðâîãî ñïèñêà
 
} }}}
}