char* Copy(char* value,int Index,int Finish)
{
        char* result = new char[Finish+ 1 ];
        strncpy( result, value + Index, Finish );
        return result;
}

 char* Copy(char* value,int Index,int Finish)
{
        char* result = new char[Finish+ 1 ];
        strncpy( result, value + Index, Finish );
        result[Finish+ 1 ] = '0';
        return result;
}

delete[] result;

char* Copy(char* value,int Index,int Finish,char Address)
{
        char* result = new char[Finish+ 1 ];
        strncpy( result, value + Index, Finish );
        result[Finish+ 1 ] = '\0';
        Address = *result;
        return result;
}

...Bin....
char z;
Edit1->Text = AnsiString(Copy(Bin, 0 , 10 ,z));
delete (&z);

char* Copy(char* value,int Index,int Finish,char Address)
{
        char* result = new char[Finish+ 1 ];
        strncpy( result, value + Index, Finish );
        result[Finish+ 1 ] = '\0';
        Address = *result;
        return result;
}

...Bin....
char z;
Edit1->Text = AnsiString(Copy(Bin, 0 , 10 ,z));
delete (&z);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  char* Result = new char[ 8 ];
  Result[ 0 ] = '1';
  strcat(Result,"0");
  Button1->Caption = (AnsiString)Result;
  delete[](Result);
}

delete[](Result);

std::string str1 = "Test";
std::string str2 = "";
...
str2 = str1; //imho, гораздо безопаснее работы с char*

char* ByteToBin(Byte value)
{
   char* Result = new char[ 8 ];
  (value^0x01) < value ? Result[ 7 ] = '1' : Result[ 7 ] = '0';
  (value^0x02) < value ? Result[ 6 ] = '1' : Result[ 6 ] = '0';
  (value^0x04) < value ? Result[ 5 ] = '1' : Result[ 5 ] = '0';
  (value^0x08) < value ? Result[ 4 ] = '1' : Result[ 4 ] = '0';
  (value^0x10) < value ? Result[ 3 ] = '1' : Result[ 3 ] = '0';
  (value^0x20) < value ? Result[ 2 ] = '1' : Result[ 2 ] = '0';
  (value^0x40) < value ? Result[ 1 ] = '1' : Result[ 1 ] = '0';
  (value^0x80) < value ? Result[ 0 ] = '1' : Result[ 0 ] = '0';
  Result[ 8 ] ='\0';
   return Result;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  char* S = new char[ 8 ];
  char* Address;
  S = (Address=ByteToBin(StrToInt(Edit1->Text)));
  Button1->Caption = (AnsiString)S;
  delete[] S;
  delete[] Address;
}

void  Copy(char* value,int Index,int Finish,char* Result)
{
        unsigned char z;
	for (int i = Index; i < Index + Finish; i++) {
		z = value[i];
                      strncat(Result,&z, 1 );
          }
        Result[Finish]= '\0';
}