procedure TP2KAPI.Suspend(Amode: byte);
var
  ssize: word;
  TCICmd_code: word;
  pTCISStruct: PTCIFSACStruct;
  pTCISStruct05: PTCIPacket05;
  pAnswerData: pbytearray;
  xx: dword;

begin
  if not TelStatus then exit;
  pAnswerData:= AllocMem($FA4);
  New(pTCISStruct);
  New(pTCISStruct05);
  FillTCIFSACStruct($1, $36, pTCISStruct);
  FillTCIFSACStructEx($1, $36, pTCISStruct05);
  FillMemory(@pTCISStruct.OtherData[0], 10, 0);
  FillMemory(@pTCISStruct05.OtherData[0], 10, 0);  
  pTCISStruct^.OtherData[0]:= AMode;
  try
    xx:= $FA4;
    if iP2KCF = 0 then SendCommand(pTCISStruct, $1+$10, Pointer(pAnswerData), xx, xP2KTimeOut)
                  else SendCommand05($36, pTCISStruct05, $1, Pointer(pAnswerData), xx, xP2KTimeOut);
  finally
    Dispose(pTCISStruct);
    Dispose(pTCISStruct05);    
    FreeMem(pAnswerData, $FA4);
  end;
end;