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;

begin
  result:= true;
  xx:= $2008;
  ssize:= 8;
  pAnswerData:= AllocMem($2008);  
  case AType of
    0 : begin
          New(pP2KStruct00);
          FillTCIFSACStruct  (ssize, Cmd, pP2KStruct00);
          CopyMemory(@pP2KStruct00.OtherData[0], Send_Data, Send_Size);
          result:= SendCommand(pP2KStruct00, ssize+$10, Pointer(pAnswerData), xx, ATimeOut);
          //!!!!!!!!!!!!!!!!!!!!!!!!!
          
          Dispose(pP2KStruct00);
        end;
    1 : begin
          New(pP2KStruct05);
          FillTCIFSACStructEx(ssize, Cmd, pP2KStruct05);
          CopyMemory(@pP2KStruct05.OtherData[0], Send_Data, Send_Size);
          Dispose(pP2KStruct05);
        end;
  else
   result:= false;
  end; //case
  
end;