anchor.diff:  
   //Discrete pallette for the Sesmi project
   function CreateHansPalette(const aTitle: string): TWDPalette;
  -begin
  +var
  +  factor: Double;
  +begin
  +  factor := 1 / 1000000000;
     Result := TDiscretePalette.Create(aTitle, [
  -    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff000000), -40000, 0, '<0'),
  -    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff0047ba), 0, 25, '0-25'),
  -    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff6da5ff), 25, 30, '25-30'),
  -    TDiscretePaletteEntry.Create(TGeoColors.Create($Ffffff00), 30, 45, '30-45'),
  -    TDiscretePaletteEntry.Create(TGeoColors.Create($Ffff8000), 45, 60, '45-60'),
  -    TDiscretePaletteEntry.Create(TGeoColors.Create($Ffff0000), 60, 75, '60-75'),
  -    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff8100c1), 75, 20000, '>75')
  +    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff000000), -40000*factor, 0*factor, '<0'),
  +    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff0047ba), 0*factor, 25*factor, '0-25'),
  +    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff6da5ff), 25*factor, 30*factor, '25-30'),
  +    TDiscretePaletteEntry.Create(TGeoColors.Create($Ffffff00), 30*factor, 45*factor, '30-45'),
  +    TDiscretePaletteEntry.Create(TGeoColors.Create($Ffff8000), 45*factor, 60*factor, '45-60'),
  +    TDiscretePaletteEntry.Create(TGeoColors.Create($Ffff0000), 60*factor, 75*factor, '60-75'),
  +    TDiscretePaletteEntry.Create(TGeoColors.Create($Ff8100c1), 75*factor, 20000*factor, '>75')
     ],TGeoColors.Create($00000000)); //default: transparant
   end;
   
  
positive.code:   private
      fLinkLayers: TDictionary<Integer, TSesmiLinkLayer>;
      fTrackLayers: TDictionary<Integer, TSesmiTrackLayer>;
    protected
      fGUID: TGUID;
      fLive: Boolean;
  
negative.code:       sensordata_latitude:
          begin
            value := aPayload.bb_read_double(aCursor);
            fLastLats.AddOrSetValue(sensorid, value);
          end;
        sensordata_longitude:
          begin
            value := aPayload.bb_read_double(aCursor);
            fLastLons.AddOrSetValue(sensorid, value);
          end;
      else
        aPayload.bb_read_skip(aCursor, fieldInfo and 7);
  