🚀 go-pugleaf

Can someone please tell me why the following code would return partially
correct data...it seems if i am not freeing up some buffer or freeing up
where is shouldn't..if i use the same code for a single string its fine.

void __fastcall TForm1::CryptStringList(TStrings *stringsin,TStrings
*stringsout,AnsiString thekey)
{
    DWORD dwDataLen = 0;
    DWORD dwEncLen =0;
    LPSTR szData =0;
    stringsout->BeginUpdate();
    CMyCrypto myCrypto((LPSTR)thekey.c_str(), CALG_RC4);
  for(int a=0;a<stringsin->Count;a++)
   {
    dwDataLen = stringsin->Strings[a].Length();
    dwEncLen = dwDataLen;
    dwDataLen = stringsin->Strings[a].Length();
    szData = new CHAR[dwEncLen + 1];
    strcpy(szData, stringsin->Strings[a].c_str());
    szData[dwEncLen] = 0;

    if (bEncrypt) {
        if (myCrypto.Encrypt((BYTE*)szData,&dwDataLen,dwDataLen,true))
                 stringsout->Add(StrPas(szData));
      } else {
        if (myCrypto.Decrypt((BYTE*)szData,&dwDataLen, true))
                stringsout->Add(StrPas(szData));
             }
     szData = NULL;
     }/// for next loop
     stringsout->EndUpdate();
     delete[] szData;
}

///////////////////////////
bool CMyCrypto::Encrypt(LPBYTE pData, LPDWORD pdwDataSize,DWORD
dwBufferSize,bool bFinal)
{
    return CryptEncrypt(m_hKey,        // encryption key handle
                        0,             // optional hash handle
                        bFinal,        // true if last block
                        0,             // flag (reserved)
                        pData,         // data to encrypt
                        pdwDataSize,   // data size (in bytes)
                        dwBufferSize); // buffer size (in bytes)
}

//---------------------------------------------------------------
bool CMyCrypto::Decrypt(LPBYTE pData, LPDWORD pdwDataSize,bool bFinal)
{
    return CryptDecrypt(m_hKey,        // encryption key handle
                        0,             // optional hash handle
                        bFinal,        // true if last block
                        0,             // flag (reserved)
                        pData,         // data to encrypt
                        pdwDataSize);  // data size (in bytes)
}