Поиск информации в бинарном файле

#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
String ori = "";
int size;
DynamicArray<unsigned char>arr;
TStringList * List = new TStringList;
TStringList * List1 = new TStringList;
// ---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner) : TForm(Owner) {
  List1->LoadFromFile("Ident_ECU.txt");
  List->Sorted=true;
  for (int i=0; i<List1->Count; i++){
  List->Add(List1[0][i]);
  }
  List->SaveToFile("Ident_ECU.txt");
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm5::ОТКРЫТЬClick(TObject *Sender) {
    if (!OpenDialog1->Execute())return;
    ori = OpenDialog1->FileName;
    Label1->Caption =(ChangeFileExt(ExtractFileName(ori), ""));
    TFileStream *str = new TFileStream(OpenDialog1->FileName, fmOpenRead);
    size = str->Size;
    arr.Length = size;
    str->ReadBuffer(arr, size);
    delete str;
    ListBox1->Clear();
    ListBox1->Items->Add("===============");
    for (int i=0; i<List->Count; i++){
        int r=List->Strings[i].Length();
        for (int y=0; y<size-r; y++){
           String ID="";
           for(int m=0;m<r;m++){
              ID+=(char)arr[y+m];
           }
            if(List->Strings[i] == ID ){
            String ID1="";
            for(int m=y;m<10+y;m++)
            {
              ID1=ID1+(char)arr[m];
            }
            ListBox1->Items->Add(ID1);
           }
        }
    }
    ListBox1->Items->Add("===============");
}

TFileStream *str = new TFileStream(OpenDialog1->FileName, fmOpenRead);
size = str->Size;
char *buf = new char[size];
str->ReadBuffer(buf,size);
delete str;
AnsiString as = AnsiString(buf);
ListBox1->Clear();
ListBox1->Items->Add("===================");
for (int i=0; i<List->Count; i++)
{
   int pos=as.AnsiPos(List->Strings[i]);
   if(pos)ListBox1->Items->Add(List->Strings[i]);
}
ListBox1->Items->Add("===================");
return;

String as;
for (int i=0; i<size; i++){
  as+=buf[i];
}

int pos=as.Pos(List->Strings[i]);

#include <System.StrUtils.hpp>
...
int pos = PosEx("aaa", as, 5);

pos = Pos(List->Strings[i], as, 1);

pos = PosEx(List->Strings[i], as, 1);

for(pos=1;pos>0;){
pos = Pos(List->Strings[i], as, pos+1);
if(pos){ Memo1->Lines->Add(as.SubString(pos,20));}
}

for (int i=0; i<size; i++){
  if(buf[i]=='\0')as+='_';
  else as+=buf[i];
}