TDCBFlags = bitPacked Record
fBinary:0..1; // Bimnary Mode, EOF check
fParity:0..1; // enable parity checking;
fOutTxCtsFlow:0..1; // CTS output flow control;
fOutTxDsrFlow:0..1; // DSR output flow control;
fDtrCOntrol:0..3; // flow control type;
fDsrSensitivity:0..1; // DSP sensitivity;
fTxContinueOnXoff:0..1; // Xoff continues TX
fOutX:0..1; // Xon/Xoff out flow control
finX:0..1; // Xon/Xoff in flow control
fErrorChar:0..1; // Enable Error replacement char;
fNull:0..1; // Enable Null stripping;
fRTsControl:0..3; // RTS Flow control;
fAbortOnError:0..1; // Abort Reads/Writes on error;
fDummy2:0..131071; // Reserved;
end;
Example of what I ment.