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

begin
  result:= false;
  if not TelStatus then exit;
  pAnswerData:= AllocMem($FA4);
  New(pFSAQStruct05);
  ssize:= $00;
  FillTCIFSACStructEx(ssize, $22, pFSAQStruct05);
  FillMemory(@pFSAQStruct05.OtherData[0], 10, 0);
  try
    xx:= $FA4;
    result:= SendCommand05($0FFF, pFSAQStruct05, ssize, Pointer(pAnswerData), xx, $100) ;
    //TelStatus:= result;
    Logger('Ping P2K05: ' + BoolToStr(result, true));
  finally
    Dispose(pFSAQStruct05);
    FreeMem(pAnswerData);
  end;
end;