Как посчитать количество удаленных символов со строки

int count=0;
//........
if(/*Символы совпадают*/)
{
/*Удаляем*/
i++; // увеличиваем счетчик
}
//.......

TStringList* StrList = new TStringList;
StrList->LoadFromFile("LoadFile.txt") ;
StrList->Sort();
 
int j;
 
if (StrList->Strings[0].Pos(j) == StrList->Strings[1].Pos(j))
    {
    StrList->Strings[1].Delete(StrList->Strings[1].Pos(j),1);
    j++;
    }

int before, after, diff;
before = str.Length(); // длина до удаления
// удаляем символы
after = str.Length();
diff = before-after;
ShowMessage("Удалено "+IntToStr(diff)+" символов");

for (int i = 1; i < ListBox1->Count; i++) //перебираю строки 
 {
  if (ListBox1->Items->Strings[i] == ListBox1->Items->Strings[0])  //если строка равна первой тогда
  {
  ListBox1->Items->Strings[i].Delete(ListBox1->Items->Strings[i].Pos(1),1); //вот тут  удаляет первый символ!
  ListBox1->Items->SaveToFile("SaveFile.txt");
  }
 }

ListBox1->Items->Strings[i].Delete(ListBox1->Items->Strings[i].Pos(1),1);
// может тут синтаксис не правельный хотя компиляцию проходит

Pos('a')

Delete(1,1);

if (ListBox1->Items->Strings[1] == ListBox1->Items->Strings[0])  
  {
  ListBox1->Items->Strings[1].Delete(ListBox1->Items->Strings[i].Pos('a'),1); 
  ListBox1->Items->SaveToFile("SaveFile.txt");
  }

if(ListBox1->Items->Strings[1] == ListBox1->Items->Strings[0])
  {
  ListBox1->Items->Strings[1].Delete(1,1);
  ListBox1->Items->SaveToFile("SaveFile.txt");
  }
 }

TStringList* StrList = new TStringList;
StrList->LoadFromFile("LoadFile.txt");
StrList->Sort();
if (StrList->Strings[1] == StrList->Strings[0])
  {
  StrList->Strings[1].Delete(StrList->Strings[1].Pos(1),1);
  StrList->SaveToFile("SaveFile.txt");
  }

StrList->Items->Strings[1] = StrList->Items->Strings[1].Delete...

TStringList* StrList = new TStringList;
StrList->LoadFromFile("LoadFile.txt");
 
if (StrList->Strings[1] == StrList->Strings[0])
  {
  StrList->Strings[1] = StrList->Strings[1].Delete(StrList->Strings[1].Pos('a'),3); //тут не присваивал StrList->Strings[1] значение после удаления символов
  StrList->SaveToFile("SaveFile.txt");
  }

TStringList* StrList = new TStringList;
StrList->LoadFromFile("LoadFile.txt");
 
if (StrList->Strings[1] == StrList->Strings[0])
  {
  StrList->Strings[1] = StrList->Strings[1].Delete(StrList->Strings[1].Pos(1),1);
  StrList->SaveToFile("SaveFile.txt");
  }

Delete(
       1/*позиция, с которой будем удалять*/,
       1/*количество удаляемых символов*/)

TStringList* StrList = new TStringList;
StrList->LoadFromFile("LoadFile.txt");
if (StrList->Strings[1] == StrList->Strings[0])
  {
  StrList->Strings[1] = StrList->Strings[1].Delete(1,1);
  StrList->SaveToFile("SaveFile.txt");
  }

TStringList* StrList = new TStringList;
StrList->LoadFromFile("LoadFile.txt");
 
for (int i = 0; i < StrList->Strings[0].Length() + 1; i++)
{
    if (StrList->Strings[1].Pos(i) == StrList->Strings[0].Pos(i))
    {
    StrList->Strings[1] = StrList->Strings[1].Delete(i,1);
    StrList->SaveToFile("SaveFile.txt");
    }
}
}

for (int i = 1; ...

i < StrList->Strings[0].Length() + 1;