удалить пробелы

{ int i,s;
strcpy(str, Edit1->Text.c_str());
for(i=0;i<strlen(str);i++)
{if (str[i]==' ') str[i]=str[i+1];
 ;}
Memo1->Lines->Add(str);

        char str[256] = {0};
        AnsiString text = Edit1->Text;
 
        int len = Edit1->Text.Length(), count = 0;
    for( int i=1; i<= len; i++)
    {
            if (text[i] != ' ')
                {
                    str[count] = text[i];
                        count++;
                }
    }
        Memo1->Lines->Add(str);

if (text[i] != ' ')
                {
                        str[count] = text[i];
                        count++;

String SpaceToNext(String s)
{
if (s.Length() <= 2)
{
  if (s[0] != ' ') return s[0] + s[0];
  else return "";
}
for (int i = s.Length() - 2; i >= 0; i++)
  if (s[i] == ' ') s[i] = s[i+1];
 
return s;
}

#include <string>
void DeleteSomeChar(char *Src, char *Dest, char DelChar)
{
  char *pDest = Dest, *pSrc = Src, *DelPos = NULL;
  do
  {
    DelPos = strstr(pSrc, &DelChar);
    if(DelPos ==  NULL) DelPos = pSrc + strlen(pSrc);
    int n = DelPos - pSrc;
    strncpy(pDest, pSrc, n);
    pDest += n;
    pSrc = DelPos + 1;
  } while(strlen(pSrc));
  *pDest = 0;
}

// Объявление функции
AnsiString DeleteSpaces(AnsiString text);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    // Использование функции. Берёт текст из Edit1 и отображает конечный текст без пробелов
    ShowMessage( DeleteSpaces(Edit1->Text) );
}
//---------------------------------------------------------------------------
 
 
// Сама функция
AnsiString DeleteSpaces(AnsiString text)
{
        int len = text.Length(), count = 0;
        AnsiString str;
        str.SetLength( len + 1 );
 
        for( int i=1; i<= len; i++)
        {
                if (text[i] != ' ')
                {
                        str[++count] = text[i];
                }
        }
        str[count+1] = 0;
 
        return str;
}

#include <StrUtils.hpp>
Memo1->Lines->Add(ReplaceStr(Edit1->Text," ",""));