Работа со строками в ListBox

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <string.h>
#include <iostream.h>
#pragma hdrstop
 
#include "Unit1.h"
using namespace std;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString beginmas[100];
AnsiString finalmas[100];
AnsiString slovo,finalslovo;
AnsiString Rules[100];
AnsiString temp;
int i,j;
int counter=0;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BeginEditChange(TObject *Sender)
{//òóò âáèâàåì ñëîâî äëÿ ïðîâåäåíèå äåéñòâèé
slovo=BeginEdit->Text;
}
//---------------------------------------------------------------------------
 
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::RulesEditKeyPress(TObject *Sender, char &Key)
 
{
//âáèâàåì â ëèñòáîêñ ïðàâèëà ïîäñòàíîâîê
 if (GetAsyncKeyState(VK_RETURN))
  {RulesListBox->Items->Add(RulesEdit->Text);
   counter=counter++;
   RulesEdit->Text="";
  }
}
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{for (i=0;i==counter;i++)
 {temp=RulesListBox->Items->Strings[i];
  beginmas[i]=temp.SubString(0,2);
  finalmas[i]=temp.SubString(4,2);
  FinalEdit->Text=beginmas[i];
  }
 finalslovo=StringReplace(slovo,beginmas[i],finalmas[i],TReplaceFlags() << rfReplaceAll);
 FinalEdit->Text=finalslovo;
}
//---------------------------------------------------------------------------