TComPort *ComPort1;
        :
        :
   ComPort1->Buffer->InputSize = 1;