Поменять местами в каждом слове первую и последнюю букву

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String s;
char a;
        int q=0,p1,p2,z=0,u=0,q1=0,u1=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
 
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
s=Memo1->Lines->Text;
while(s.Length()<=q1)
{             //4444444444444444
x:
q++;
u=q;
q1=u+1;
if((s[q]==' ')&(s[q+1]!=' '))
{               //33333333333333333
p1=q+1;
while(s.Length()<=u1)
{              //22222222222222222222222
u++;
u1=u+1;
if(s[u+1]==' ')
{               //11111111111111111111111
p2=u;
a=s[p1];
s[p1]=s[p2];
s[p2]=a;
goto x;
}               // 1111111111111111111111111
}               //222222222222222222222222
}               //3333333333333333
}               //444444444444444
Memo2->Lines->Add(s);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
char c1,c2;
int d1=0;
s=Memo1->Text;
for(int d=1;d<=s.Length();d++)
{
d1++;
if(s[d1+1]==' ')Memo2->Lines->Add(s[d]);
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = Memo1->Text;
  char cfirst, last;
  bool bfirst = true;
  int ifirst;
  int i = 0;
  for(; i < str.Length(); i++)
    {
      if(str[i + 1] != ' ')
        {
          if(bfirst)
            {
              cfirst = str[i + 1];
              ifirst = i + 1;
              bfirst = false;
            }
        }
      else
        {
          last = str[i];
          str[i] = cfirst;
          str[ifirst] = last;
          bfirst = true;
        }
    }
  last = str[i - 2];
  str[i - 2] = cfirst;
  str[ifirst] = last;
  Memo1->Text = str;
}