Unit:Serialport (uses serialport;)
TParityType = (NoneParity, OddParity, EvenParity);
function SerOpen(const DeviceName: String): LongInt;
procedure SerClose(Handle: LongInt);
procedure SerFlush(Handle: LongInt);
function SerRead(Handle: LongInt; Count: LongInt): string;
function SerReadTimeout(Handle: LongInt; Timeout : Integer; Count: LongInt): string;
function SerWrite(Handle: LongInt; Data : PChar; Len: LongInt): LongInt;
function SerGetCTS(Handle: LongInt) : Boolean;
function SerGetDSR(Handle: LongInt) : Boolean;
procedure SerSetRTS(Handle: LongInt;Value : Boolean);
procedure SerSetDTR(Handle: LongInt;Value : Boolean);
procedure SerRTSToggle(Handle: LongInt;Value : Boolean);
procedure SerParams(Handle: LongInt; BitsPerSec: LongInt; ByteSize: Integer; Parity: TParityType; StopBits: Integer);
function SerPortNames : String;