anchor.diff:   if (not broadcasts.ContainsKey(ABinding.IP)) then Self.UpdateBindings();
   
    try
  -   ABinding.Broadcast(msg, port, broadcasts[ABinding.IP]);
  +   data := TEncoding.UTF8.GetBytes(msg);
  +   ABinding.Broadcast(data, port, broadcasts[ABinding.IP]);
    except
      on E:Exception do
        writelog('Vyjimka TUDPDiscover.SendDisc : '+E.Message, WR_ERROR);
  
positive.code: ////////////////////////////////////////////////////////////////////////////////
  
  procedure TUDPDiscover.SendDisc(ABinding: TIdSocketHandle; port:Word);
  var msg:string;
  begin
   if (ABinding.IP = '0.0.0.0') then Exit();
  
  
negative.code:   i, j:Integer;
  begin
   try
     msg := TEncoding.UTF8.GetString(AData);
     Self.parsed.Clear();
     ExtractStringsEx([';'], [], msg, parsed);
  
  