Length() в билдере

void __fastcall TForm1::Button1Click(TObject *Sender)
{
char s[] = "kill,sell,bull,full,cool,full,bear,full.";
char slovo,res;
int i;
for(i=0; i<s.Length(); i++)
        { if (s[i]!=',' && s[i]!='.')
                slovo+=s[i];
                else {res=slovo+','+res; }
        }
       Edit2->Text=res;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s = "kill,sell,bull,full,cool,full,bear,full.";
AnsiString slovo,res;
int p,i;
//p=strlen(s);
for(i=0; i<=s.Length(); i++)
        { if (s[i]!=',' && s[i]!='.')
                slovo+=s[i];
                else {res=slovo+','+res; }
        }
       Edit2->Text=res;
}

#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
String s = "kill,sell,bull,full,cool,full,bear,full.";
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->Text = s;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *sl = new TStringList;
  sl->Delimiter = ',';
  sl->DelimitedText = s;
  String ss = "", temp = "";
  for(int i = sl->Count - 1; i >= 0; i--)
   {
     if(i == sl->Count - 1)
      temp = sl->Strings[i].Delete(sl->Strings[i].Length(), 1);
     else temp = sl->Strings[i];
     ss += temp + ",";
   }
  Edit2->Text = ss.Delete(ss.Length(), 1) + ".";
  delete sl;
}
//---------------------------------------------------------------------------

    TStringDynArray sda_words( SplitString( "kill,sell,bull,full,cool,full,bear,full.", "., " ) );
    String s_result;
 
    for ( int i( sda_words.High ); i >= 0; --i )
    {
        if ( sda_words[ i ].IsEmpty( ) )
        {
            continue;
        }
        s_result += sda_words[ i ] + ",";
    }
    s_result[ s_result.Length( ) ] = '.';

temp = sl->Strings[i].Delete(sl->Strings[i].Length(), 1);

temp = sl->Strings[i].Delete(sl->Strings[i].Length(), 1);

ss.Delete(ss.Length(), 1) + ".";