function TP2KAPI.GetIMEI: string;
var
  SeemData: pbytearray;
  SeemLen, i: word;
  s: string;

Далее...

function TP2KAPI.SendCmd(AType: byte; Cmd:word; Send_Data:Pointer;Send_Size: word; Recv_Data: Pointer; var Recv_Size: dword; ATimeOut: word):boolean;
var
  pP2KStruct00: PTCIFSACStruct;
  pP2KStruct05: PTCIPacket05;
  ssize: word;
  pAnswerData: pbytearray;
  AnswerSize: dword;
  xx: dword;

Далее...

function TP2KAPI.Ping_P2K05: boolean;
var
  ssize: word;
  TCICmd_code: word;
  pFSAQStruct05: PTCIPacket05;
  pAnswerData: pbytearray;
  xx: dword;

Далее...