Перемещение каретки в поле Edit

void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
  short n=Edit1->Text.Length();   //длина имеющейся строки Edit1
  char *s=new char[n+1];          //объявление переменной
  strcpy(s, Edit1->Text.c_str()); //строка из Edit1
  for(short i=0; i<n; i++)
  {
    if(s[i]=='a')s[i]='A';   //замена
  }
  Edit1->Text=AnsiString(s); //строку 's' в Edit1
  delete[]s;                 //удаление переменной
}

void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
  short n=Edit1->Text.Length();   //длина имеющейся строки Edit1
  char *s=new char[n+1];          //объявление переменной
  strcpy(s, Edit1->Text.c_str()); //строка из Edit1
 
  for(short i=0; i<n; i++)
  {
    if(s[i]=='a'){s[i]='A'; Edit1->SelStart=i;} //замена
  }
  Edit1->Text=AnsiString(s); //строку 's' в Edit1
  delete[]s;                 //удаление переменной

void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
  short n=Edit1->Text.Length();   //длина имеющейся строки Edit1
  char *s=new char[n+1];          //объявление переменной
  strcpy(s, Edit1->Text.c_str()); //строка из Edit1
 
  for(short i=0; i<n; i++)
  {
    if(s[i]=='a')s[i]='A';   //замена
  }
 
  Edit1->Text=AnsiString(s); //строку 's' в Edit1
  Edit1->SelStart=n;         //установка каретки
  delete[]s;                 //удаление переменной

void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
  short n=Edit1->Text.Length();   //длина имеющейся строки Edit1
  char *s=new char[n+1];          //объявление переменной
  strcpy(s, Edit1->Text.c_str()); //строка из Edit1
 
  for(short i=0; i<n; i++)
  {
    if(s[i]=='a')s[i]='A';   //замена
  }
  Edit1->Text=AnsiString(s); //строку 's' в Edit1
  delete[]s;                 //удаление переменной
 
  //Установка каретки в конец строки
  if(Key==VK_INSERT)Edit1->SelStart=n;
}