ADAM 5510E 8 слотов - не определяются крайние 4

Последние версии библиотек должны это делать.

const
  EmptySlot    =   $1f;

  ADAM5017_ID   =  $04 ;
  ADAM5018_ID   =  $05 ;
  ADAM5080_ID   =  $06 ;
  ADAM5013A_ID  =  $08 ;
  ADAM5013B_ID  =  $09 ;
  ADAM5017H_ID  =  $0C ;
  ADAM5018H_ID  =  $0D ;
  ADAM5052_ID   =  $0F ;
  ADAM5050_ID   =  $10 ;
  ADAM5051_ID   =  $11 ;
  ADAM5056_ID   =  $12 ;
  ADAM5068_ID   =  $13 ;
  ADAM5060_ID   =  $14 ;
  ADAM5055_ID   =  $15 ;
  ADAM5017UH_ID =  $17 ;
  ADAM5024_ID   =  $18 ;

const
  Board_Base:array[0..7] of word = ($100, $110, $120, $130,  $140, $150, $160, $170);

function GetBoardID(Slot:byte):byte;
begin
  GetBoardID := Port[Board_Base[Slot and 7]+1] AND $1F;
end;