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