Enumerate serial ports
var i: integer; PortName: string; PortsCount: Word; begin try PortsCount := FTSPCControl1.EnumSerialPorts(); if PortsCount > 0 then begin for i := 0 to PortsCount - 1 do begin PortName := FTSPCControl1.GetSerialPort(i); // Todo: add your code end; end; except on e:FTSPCException do begin application.MessageBox( PChar('Error: ' + inttostr(e.ErrorCode) + ' - ' + e.ErrorSource), 'Error!', MB_OK + MB_ICONERROR); end; end; end;