procedure TP2KAPI.Restart;
var
  ssize: word;
  TCICmd_code: word;
  pFSAQStruct: PTCIFSACStruct;
  pFSAQStruct05: PTCIPacket05;
  pAnswerData: pbytearray;
  xx: dword;

begin
  if not TelStatus then exit;
  pAnswerData:= AllocMem($FA4);
  New(pFSAQStruct);
  New(pFSAQStruct05);  
  ssize:= $00;
  FillTCIFSACStruct(ssize, $22, pFSAQStruct);
  FillTCIFSACStructEx(ssize, $22, pFSAQStruct05);  
  FillMemory(@pFSAQStruct.OtherData[0], 10, 0);
  FillMemory(@pFSAQStruct05.OtherData[0], 10, 0);  
  try
    xx:= $FA4;
    if iP2KCF = 0 then SendCommand(pFSAQStruct, ssize+$10, Pointer(pAnswerData), xx, xP2KTimeOut)
                  else SendCommand05($22, pFSAQStruct05, ssize, Pointer(pAnswerData), xx, xP2KTimeOut) ;
    TelStatus:= false;
  finally
    Dispose(pFSAQStruct);
    Dispose(pFSAQStruct05);    
    FreeMem(pAnswerData);
  end;
end;