Удалить слова с четными номерами и перевернуть нечетные

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString str = Edit1->Text;
  for(int i = 1; i < str.Length() - 1; i++)
 
if(str[i]== ' ')
 
str.Delete(i+1, 1 );
 
Edit2->Text = str;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString
  str = Edit1->Text,
  rev ="";
  for(int i = 1; i < str.Length() ; i++)
{
if(str[i]== ' ' )
{
do{
rev += str[i];
str.Delete(i, 1 );
 
  }
while (str[i]!= ' '&& str.Length()!=i);
if(rev!="")
{
for (int a = rev.Length(); a > 0; a--)
{
Edit3->Text = Edit3->Text + rev[a];
}
rev ="";
}
}
Edit2->Text = str;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
int i,k; std::string text1,text;
text=AnsiString(Edit1->Text).r();
text=text+" ";
do
{
if (i%2==0)
{
 
text1=text1+text.substr(0,text.find(" ")+1);
text.erase(0,text.find(" ")+1);
}
else
text.erase(0,text.find(" ")+1);
i++;
}
while (text.size()!=0);
 
Edit2->Text=text1.r();
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString str=Edit2->Text;
AnsiString strnaoborot;
 
for (int i = -1; i < str.Length()-1; i++)
{
strnaoborot += str[str.Length() - i -1];
}
Edit3->Text= strnaoborot;
 
 
}

#include <memory>
#include <StrUtils.hpp>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TStringList> L (new TStringList);
  L->Delimiter = ' ';
  L->DelimitedText = Edit1->Text;
  for(int i = 0; i < L->Count; i++)
   if(i % 2 == 0) Edit2->Text = Edit2->Text + ReverseString(L->Strings[i]) + " ";
}