map <AnsiString,int> speeding;
........................................
for(;;)
{
strcpy(buf,speed);
strtok(buf,",");
speed+=strlen(buf)+1;
strcpy(buff,buf);
strtok(buff,";");
buf+=strlen(buff)+1;
speeding[AnsiString(buff)]=atoi(buf);
ComboBox2->Items->Add(AnsiString(buff));
buf=(char*)Rbuf;
if(strlen(speed)==0){break;}
}