TOPIC:

On this code

function GetSerialPortNames: string;
var
sr : TSearchRec;
begin
Result := '';
if FindFirst('/dev/ttyS*', $FFFFFFFF, sr) = 0 then

raise this exception

synaser.pas(2408,39) Error: range check error while evaluating constants (4294967295 must be between -2147483648 and 2147483647)

I just change the ATTRIBUTE to a lower number , i think is safe . Example:

///if FindFirst('/dev/ttyS*', $FFFFFFFF, sr) = 0 then
if FindFirst('/dev/ttyS*', $FFFFFFF, sr) = 0 then