anchor.diff:      fTimer.Enabled  := True;
     {$ELSE}
       fTimer := TFPTimer.Create(nil);
  -    fTimer.Enabled  := True;
       fTimer.OnTimer  := UpdateState;
       fTimer.Interval := fPacketsAccumulatingDelay;
  +    fTimer.Enabled  := True;
       fTimer.StartTimer;
     {$ENDIF}
   end;
  
positive.code:   if aServerClient.fScheduledPacketsCnt > 0 then
    begin
      GetMem(P, aServerClient.fScheduledPacketsSize + 1);
      try
        PByte(P)^ := aServerClient.fScheduledPacketsCnt;
  
        Move(aServerClient.fScheduledPackets[0], Pointer(Cardinal(P) + 1)^, aServerClient.fScheduledPacketsSize);
  
        DoSendData(aServerClient.fHandle, P, aServerClient.fScheduledPacketsSize + 1);
        aServerClient.ClearScheduledPackets;
      finally
  
negative.code:   if SenderClient = nil then Exit;
  
    if (SenderClient.fScheduledPacketsSize + aLength > MAX_CUMULATIVE_PACKET_SIZE)
      or (SenderClient.fScheduledPacketsCnt = 255) then //Max number of packets = 255 (we use 1 byte for that)
    begin
      //gLog.AddTime(Format('@@@ FLUSH fScheduledPacketsSize + aLength = %d > %d', [SenderClient.fScheduledPacketsSize + aLength, MAX_CUMULATIVE_PACKET_SIZE]));
      SendScheduledData(SenderClient);
  