anchor.diff:    for i := 1 to Length(s) do
       if s[i] <> #0 then
       begin
  -     // if s[i] = CR then Break;
         Result := Result + s[i];
       end;
   end;
  
positive.code:         PLStringList.Clear();
          ParseHGDPacket(Reply, PLStringList);
  
          if PLStringList.Count >= 5 then
          begin
          PList[Length(PList) - 1].Number := StrToIntDef(PLStringList.Strings[0],
            0);
  
          PList[Length(PList) - 1].Filename := PLStringList.Strings[1];
          PList[Length(PList) - 1].Artist := PLStringList.Strings[2];
          PList[Length(PList) - 1].Title := PLStringList.Strings[3];
          PList[Length(PList) - 1].User := PLStringList.Strings[4];
          PList[Length(PList) - 1].Album := PLStringList.Strings[5];
          end;
        end;
  
  
negative.code:     Title: string;
      Album: string;
      User: string;
      Genre: string;
      Duration: integer;
      Bitrate: integer;
      SampleRate: integer;
      Channels: integer;
      Year: integer;
    end;
  
    TPlaylist = array of TTrackInfo;
  