anchor.diff:          PList[Length(PList) - 1].Album := PLStringList.Strings[5];
         end;
   
  -      PLStringList.Free;
  +      PLStringList.Free();
         Result := True;
       end;
     end;
  
positive.code: 
          SetLength(PList, Length(PList) + 1);
  
          PLStringList.Clear;
          ParseHGDPacket(Reply, PLStringList);
  
          PList[Length(PList) - 1].Number := StrToIntDef(PLStringList.Strings[0],
  
negative.code:         Log('Encrypting Socket...');
          Socket.SendString('encrypt' + ProtoLineEnding);
  
          Socket.SSLDoConnect();
  
          if Socket.LastError <>  0 then //check for success start of SSL
          begin
  