switch(MSComm1->CommEvent)
{
case comEvReceive:
RxBuff = MSComm1->Input;
int j= RxBuff.ArrayHighBound(1);
for (int i = 0; i <= j; i++) buffer[i]= RxBuff.GetElement(i);
rev_len = RxBuff.ArrayHighBound(1);
for(int i = 0; i < rev_len; i++) Buffer[i] = RxBuff.GetElement(i);
for(int i = 0; i < rev_len; i++) s += IntToHex(Buffer[i],2) + " ";
s = s.Trim();