Заменить первые буквы слов прописными

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString S;
AnsiString bukvi= "йцукенгшщзхфвапролджэячсмитбю";
AnsiString BUKVI= "ЙЦУКЕНГШЩЗХФВАПРОЛДЖЭЯЧСМИТБЮ";
S=Edit1->Text;
{
if(S[1]==bukvi) S[1]=BUKVI; //по поводу этой строчки пишет cannot convert ansistring to char
}
Label2->Caption= "Предложение с преобразованными буквами: " //не знаю как продолжить эту строчку чтобы выводил сюда  измененное предложение
}

String CamelCase(String s)
{
    String Delimiters = " .,:"; // Разделители слов
    String Result = s;
 
    for(int i = 1; i <= Result.Length(); i++)
    {
        if(i == 1 || Delimiters.Pos(Result[i - 1]))
            Result[i] = AnsiUpperCase(Result[i])[1];
    }
    return Result;
}
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Label1->Caption = CamelCase(Edit1->Text);
}

AnsiString temp = " " + Trim(Edit1->Text);
for (int i = 1; i < temp.Length(); i++)
  if (temp[i] == ' ')
    temp[i+1] = AnsiUpperCase(temp[i+1])[1];
Edit1->Text = Trim(temp);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString S;
AnsiString bukvi= "йцукенгшщзхфвапролджэячсмитбю";
AnsiString BUKVI= "ЙЦУКЕНГШЩЗХФВАПРОЛДЖЭЯЧСМИТБЮ";
S=Edit1->Text;
int n1=S.Length(), n2 = bukvi.Length();
for(int k=1; k<n1; k++)
if( (S[k]==' ') || (S[k]=='.') || (S[k]==',') || (S[k]==':') )
for(int i=1; i<n2; i++)
{
if(S[k+1]==bukvi[i]){ S[k+1]=BUKVI[i]; break; k++;}
}
Label2->Caption= "Предложение с преобразованными буквами: " + S;
}