Первый символ в edite заглавный

if (str1.UpperCase == str2.UpperCase)
{
//делай что нужно если совпало.
}

if (this->Edit1->Text.Length())
{
    this->Edit1->Text[0] = toupper(this->Edit1->Text[0]);//Возможно 0 нужно будет заменить на 1
}

#include <vcl.h>
#pragma hdrstop
  #include <ctype.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
int toupper(char);
 
int a;
a[0] = toupper(a[0]);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (this->Edit1->Text.Length())//Если в Edit'e что то ввседени, тогда выполняем
{
    if (!isupper(this->Edit1->Text[0])) = toupper(this->Edit1->Text[0]);//присваеваем первому символу его значение в заглавном виде!
}
}

[C++ Error] Unit1.cpp(22): E2188 Expression syntax

Edit1->Text.At(0) = toupper(Edit1->Text.At(0))

 AnsiString s1=Edit1->Text,s2;
 s2=s1.UpperCase();
 s1[1]=s2[1];
 Edit1->Text=s1;

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
     if (this->Edit1->Text.Length())
     {
          if (islower(this->Edit1->Text[0]))
          {
               string a(this->Edit1->Text.c_str());
               a[0] = toupper(a[0]);
               this->Edit1->Text = a.c_str();
          }
     }
}

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (!Edit1->Text.IsEmpty())
 {
 int pos = Edit1->SelStart;
 
 String S = Edit1->Text;
 S[1] = toupper(S[1]);
 Edit1->Text = S;
 
 Edit1->SelStart= pos;
 }
}

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (!Edit1->Text.IsEmpty())
 {
 int pos = Edit1->SelStart;
 
 String S1,S2;
 
 S1 = Edit1->Text;
 S2 = (AnsiString(Edit1->Text)).UpperCase();
 
 S1[1] = S2[1];
 
 Edit1->Text = S1;
 Edit1->SelStart = pos;
 }
}