在系统中使用SPOMM控件，但是编译中出现none与shdoc.pas中的none冲突，需要修改。chdoc是系统文件惹不起，所以必须修改spcomm文件如下

    TParity = ( None, Odd, Even, Mark, Space );   

改为

TParity = ( sNone, Odd, Even, Mark, Space );
    TStopBits = ( _1, _1_5, _2 );
    TByteSize = ( _5, _6, _7, _8 );
    TDtrControl = ( DtrEnable, DtrDisable, DtrHandshake );
    TRtsControl = ( RtsEnable, RtsDisable, RtsHandshake, RtsTransmissionAvailable );

还需要在每一个应用控件的窗口打开修改缺省值none为snone。

问题解决。