procedure TP2KAPI.SwitchToAT;
var
  xStruct: pbytearray;
begin
  if not TelStatus then exit;
  xStruct:= AllocMem(9);
  //размер пакета - 8 байт содержание: 40 01 00 00 01 00 00 00
  xStruct[0]:= $40;
  xStruct[1]:= $01;
  xStruct[4]:= $01;
  try
    Logger('Переключаю из P2K в АТ...');
    WriteData(xStruct, 9, xP2KTimeOut);
    Logger(PChar(xStruct));
  finally
    FreeMem(xStruct, 9);
  end;
  closehandle(HDev);
end;