TReadBuffer = record
  TransferResult:boolean;
  readBuffer:array[0..15] of byte;
end;
PReadBuffer = ^TReadBuffer;

TWriteBuffer=array[0..127] of byte;
PWriteBuffer=^TWriteBuffer;

function  Init_MODULES:integer; stdcall; external 'itra_apcomm.dll';
function  MODULESTransfer(PWriteB:PWriteBuffer):PReadBuffer; stdcall; external 'itra_apcomm.dll';
function  Get_MODULESDescr:PUSBDeviceDescriptor; stdcall; external 'itra_apcomm.dll';
procedure Close_MODULES; stdcall; external 'itra_apcomm.dll';

var
  PKeyB:PReadBuffer;
  WriteB:TWriteBuffer;