edtData->Text = “Петров”;
                unsigned char* Data;
                Data = new char[ 16 ];
                AnsiString DataString = edtData->Text;
                unsigned char* ch;
                for (int SymbolCount =  0 ; SymbolCount <  16 ; SymbolCount++)
                {
                        if (SymbolCount <= DataString.Length())
                        {
                                ch = DataString.SubString(SymbolCount,SymbolCount +  1 ).c_str();
                                Data[SymbolCount] = *ch;
                        }
                        else
                                Data[SymbolCount] = 0x00;
                }

unsigned char* Data;
Data = new char[ 6 ];

Data[ 0 ] = 0x E7;
Data[ 1 ] = 0xAA;
Data[ 2 ] = 0xFF;
Data[ 3 ] = 0xF0;
Data[ 4 ] = 0xAF;
Data[ 5 ] = 0xED; 

unsigned char* Data = new char[ 6 ];;
int FirstSymbol,SecondSymbol;
AnsiString Symbol1,Symbol2;
AnsiString HEX[ 16 ]={"0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"};
TEdit *edtEdit;
for (int Key =  0 ; Key <  6 ; Key++)
{
        edtEdit = dynamic_cast<TEdit*>(frmMain->FindComponent("Edit" + IntToHex(Key+ 1 ,  1 )));
        Symbol1 =edtEdit->Text.SubString( 1 , 1 );
        Symbol2 =edtEdit->Text.SubString( 2 , 2 );
        for(int d= 0 ;d< 16 ;d++)
        {
                if (HEX[d]==Symbol1)    FirstSymbol = d;
                if (HEX[d]==Symbol2)    SecondSymbol = d;
        }
        Data[Key] = char(FirstSymbol* 16 +SecondSymbol);
}