anchor.diff:            CheckSynchronize(0);
   
             // Yawn.
  -          sleep(100);
  +          sleep(50);
           end;
       end;
   
  
positive.code:            'All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy.'
        ;
  
        MQTTClient := TMQTTClient.Create('localhost', 1883);
  
        // Setup callback handlers
        MQTTClient.OnConnAck := @OnConnAck;
  
negative.code: 
        while true do
          begin
  	Writeln('System:time:', TimeStampToMSecs(DateTimeToTimeStamp(Now)));
            case state of 
              STARTING :
                         begin
  