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

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

function  Init_TCP(c_nr:integer):integer; stdcall; external 'itra_devcomm.dll';
function  Get_TCPKey:PReadBuffer; stdcall; external 'itra_devcomm.dll';
function  Get_TCPDeviceName:PChar; stdcall; external 'itra_devcomm.dll';
function  TCPTransfer(PWriteB:PWriteBuffer):PReadBuffer; stdcall; external 'itra_devcomm.dll';
procedure  Close_TCP; stdcall; external 'itra_devcomm.dll';

var
  PKeyB:PReadBuffer;
  WriteB:TWriteBuffer;