receive:integer;
  buffer:array [0..127] of uchar;
  data:array [0..127] of uchar;
  s:string;
  i:integer;
  Card:uchar;receive:= Inventory(comhandle,strtoint('$'+setadd.Text), $06,$00,$00,@data[0],@Card,@buffer[0]);谢谢