void TForm1.ComPort1CTSChange(TObject Sender, bool OnOff ){ if( OnOff ) ShowMessage("CTS high"); else if ( ComPort1.StateFlags & fCtlHold )// if transmission is waiting ShowMessage("CTS low, transmission waiting"); else ShowMessage("CTS low");}