AES шифрование (длинный текст)

 (u32 *)rk += 8;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
        unsigned int len = Memo1->Text.Length();
        byte *buf = EncryptBuffer(Edit1->Text.c_str(), Edit1->Text.Length(), Memo1->Text.c_str(), len);
 
        // буфер в Hex
        String HexString = "";
        for ( int i = 0; i < len; i++ ) // len теперь имеет другое значение, возвращенное функцией EncryptBuffer
        {
                HexString += IntToHex(buf[i], 2) + " ";
        }
 
        Memo2->Text = HexString;
 
        delete[] buf; // буфер, который возвращает EncryptBuffer и DecryptBuffer, нужно освобождать
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        unsigned int iLen = Memo2->Text.Length();
 
        THexString text;
        text.AsHexString = Memo2->Text;
 
        char *buf = DecryptBuffer(Edit1->Text.c_str(), Edit1->Text.Length(), text.AsCharString.c_str(), iLen);
 
        Memo1->Text = buf;
 
        delete[] buf; // буфер, который возвращает EncryptBuffer и DecryptBuffer, нужно освобождать
 
}