Hilfe bei Übersetzung VB to Delphi

[bluescreen25]

Delphi-Quellcode:

USBRADIO_API bool __stdcall      VB_GetEon(float* ary, int* arysize, unsigned int *pi, short * pty, char ps[9], bool *ta, unsigned int eon)
{
   if(eon < 0 || eon > 4)
      return false;
   
   RDSData rds_data;
   std::map<double, double>::iterator iter; 
   std::vector<rds_EON_struct>::iterator EONMapIter;
   int i;
   if (fmRadioDevice.GetRDSData(&rds_data)) 
   {
      for(EONMapIter = rds_data.EONMap.begin(), i = 0; EONMapIter != rds_data.EONMap.end(); EONMapIter++, i++)
         if( i == eon)
            break;
      if(EONMapIter != rds_data.EONMap.end())
      {
         if(EONMapIter->m_mappedFreq2.size() > 0) 
         {
            int cnt = 0;
            for(iter = EONMapIter->m_mappedFreq2.begin(); iter != EONMapIter->m_mappedFreq2.end(); iter++) 
            {
               ary[cnt] = iter->first;
               cnt++;
               if (cnt > *arysize - 1) 
                  break;
            }
            *arysize = EONMapIter->m_mappedFreq2.size();
         }
         *pi = EONMapIter->m_pi;
         *pty = EONMapIter->m_pty_ON;
         EONMapIter->m_psText = "";
         for(i = 0; i < 8; i++)
         {
            if(!EONMapIter->m_ps[i])
               EONMapIter->m_ps[i] = ' ';
            EONMapIter->m_psText += EONMapIter->m_ps[i];
         }
         strncpy(ps,EONMapIter->m_psText.c_str(),strlen(EONMapIter->m_psText.c_str()));
         *ta = EONMapIter->m_ta_ON;
      }
   }
   return true;
}

hmm kannst du etwas erkennen ?