Удалить из Edit

AnsiString str1 = Edit1->Text;
AnsiString str2 = "Футбол";
int len = str2.Length();
str1 = str1.Delete(1,len);
Edit1->Text = str1;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString tr = Edit1->Text.Trim(),dlg,dfg;
dfg = tr.SubString(tr.Pos("(")+1,tr.Length());
dlg = tr.SubString(tr.Pos(" "),21);
Edit1->Text =dlg.Trim() + dfg.Delete(dfg.Pos(")"),1);
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    static int pp = 0;
    TStringList *lst = new TStringList();
    lst->CommaText = Memo1->Text;
    Edit1->Text = "";
    for (int i=pp;i<pp+5;i++)
      if (lst->Count > i)
        Edit1->Text=Edit1->Text + lst->Strings[i]+" ";
    pp += 5;
}

AnsiString mstr;
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  int i = 0;
  Application->Title = mstr;
  Caption = mstr;
  for (i = 1; iTitle[i + 1];
    mstr[mstr.Length()] = Application->Title[1];
  }
}

AnsiString str1 = Edit1->Text;
int len = str1.Length();
if (len>3) Edit1->Clear();

str = str.Delete(1,len);

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   /*  Edit1->Text = Memo1->Text;   */
     for (int i=0;i<3;i++) {
       if (Edit1->Text.Pos(" "))
         Edit1->Text = Edit1->Text.SubString(Edit1->Text.Pos(" ")+1,
             Edit1->Text.Length()-Edit1->Text.Pos(" ")) ;
     }
}

/*   Edit1->Text = Memo1->Text;    */
   for (int p,i=0;i<3;i++)
     if ((p=Edit1->Text.Pos(" "))>0) Edit1->Text = Edit1->Text.Delete(1,p) ;