char value1[5];
AnsiString str;
memset(value1,0,sizeof(value1));
for(int i=0 ;i < 5 ; i  ){
value1[0]='1';
value1[1]='2';
value1[2]='3';
value1[3]='4';
str  = value1;
}
AListBox->Items->Add(str);