Hex редактирование - замена строк в файле

 AnsiString var="wpn\wpn_vog";
 
 while(int i=Memo1->Text.Pos(var))
   {
     Memo1->Text = Memo1->Text.Delete(i,var.Length());
     Memo1->Text = Memo1->Text.Insert("wpn\wpn_vo1",i);
   }

      AnsiString var="wpn\\wpn_vog";
      while(int i=Memo1->Text.Pos(var))
   {
         Memo1->Text = Memo1->Text.Delete(i,var.Length());
         Memo1->Text = Memo1->Text.Insert("wpn\\wpn_vo1",i);
   }

Memo1->Lines->SaveToFile("file.ext");

void __fastcall TForm1::Button2Click(TObject *Sender)
{
       int fl = FileOpen(".\\wpn_abakan_hud.ogf",fmOpenReadWrite);
       UINT dlf = FileSeek(fl,0,2);
       UCHAR *dbuf = new UCHAR[dlf+1];
       FileSeek(fl,0,0);
       int dlf2 = FileRead(fl,dbuf,dlf);
     {  /*  ìàíèïóëÿöèè ïî ïîèñêó è çàìåíå  */  }
       if (FileSeek(fl,0,0)>=0)
          FileWrite(fl,dbuf,dlf);
       FileClose(fl);
       delete dbuf;
 
       Memo1->Lines->Add(IntToStr(dlf2)) ;
}

    void __fastcall TForm1::Button2Click(TObject *Sender)
if (OpenDialog1->Execute()) {
           int fl = FileOpen(OpenDialog1->FileName,fmOpenReadWrite);
           UINT dlf = FileSeek(fl,0,2);
           char *dbuf = new char[dlf+1];
           char *s = "act_arm_perchatka";
           char *ps = dbuf;
           FileSeek(fl,0,0);
           int dlf2 = FileRead(fl,dbuf,dlf);
           while ((ps = strstr(ps, s)) != NULL) {
           Memo1->Lines->Add("Проверка, внутри while ли мы вообще?");
                *(ps+16) = '1';
                ps++;
           }
           if (FileSeek(fl,0,0)>=0)
              FileWrite(fl,dbuf,dlf);
           FileClose(fl);
           delete dbuf;
 
           Memo1->Lines->Add(IntToStr(dlf2)) ;
    }
    }

        void __fastcall TForm1::Button2Click(TObject *Sender)
        {
               int fl = FileOpen(".\\wpn_abakan_hud.ogf",fmOpenReadWrite);
               UINT dlf = FileSeek(fl,0,2);
               char *dbuf = new char[dlf+1]; // указатель на ANSI-строку длиной dif+1
               char *s = "act_arm_perchatka"; // ANSI-строка которую необходимо найти
               FileSeek(fl,0,0);
               int dlf2 = FileRead(fl,dbuf,dlf);
               int len = strlen(s);
               for (int i=0; i<dlf; i++) {
                    if (dbuf[i] == s[0]) {
                        for (int j=1; j<len && (i+j)<dlf; j++) {
                            if (dbuf[i+j] != s[j])
                                break;
                            else if (j == len-1)
                                dbuf[i+j] = '1';
                        }
                    }
               }
               if (FileSeek(fl,0,0)>=0)
                  FileWrite(fl,dbuf,dlf);
               FileClose(fl);
               delete[] dbuf;
 
               Memo1->Lines->Add(IntToStr(dlf2)) ;
        }