function TP2KAPI.Ping_P2K00: boolean;
var
  ssize: word;
  TCICmd_code: word;
  pFSAQStruct: PTCIFSACStruct;
  pAnswerData: pbytearray;
  xx: dword;

begin
  result:= false;
  if not TelStatus then exit;
  pAnswerData:= AllocMem($FA4);
  New(pFSAQStruct);
  ssize:= $00;
  FillTCIFSACStruct(ssize, $0FFF, pFSAQStruct);
  FillMemory(@pFSAQStruct.OtherData[0], 10, 0);
  try
    xx:= $FA4;
    result:= SendCommand(pFSAQStruct, ssize+$10, Pointer(pAnswerData), xx, 500);
    TelStatus:= result;
  finally
    Dispose(pFSAQStruct);
    FreeMem(pAnswerData);
  end;
end;