C++: не могу разобраться...=(

[Алиса Ростова]

Помогите пожалуйста написать прогу...не пойму...мне какая-то ошибка высвечивается...вот код:
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
AnsiString* strSplit(AnsiString buf, char delim, int &n)
{
n = 1;
for (int i = 1; i <= buf.Length(); i++)
if (buf[i] == delim) // считаем число символов delim
n++;
AnsiString* res = new AnsiString[n];

for (int j = 0; j < n; j++)
{
int p = buf.Pos(delim);

if (p == 0)
p = buf.Length()+1;

res[j] = buf.SubString(1,p - 1);
buf.Delete(1, p);
}
return res;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int num = 0;
int n;

if (RadioButton1->Checked)
{
AnsiString abc = "йцк";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}
if (RadioButton2->Checked)
{
AnsiString abc = "нгш";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}

ShowMessage("Найдено слов: " + IntToStr(num));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
int num = 0;
int n;

AnsiString abc = "йцк";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{

int num = 0;
int n;

AnsiString abc = "нгш";
AnsiString s = Memo1->Text;

AnsiString* str = strSplit(s, ' ', n); // получаем массив слов
for (int j = 0; j < n; j++)
for (int k = 1; k <= abc.Length(); k++)
if (str[j][1] == abc[k])
{
num++;
break;
}
delete [] str;
}

ну вот чего ему не хватает?