anchor.diff:  
           SetLength(PList, Length(PList) + 1);
   
  -        PLStringList.Clear;
  +        PLStringList.Clear();
           ParseHGDPacket(Reply, PLStringList);
   
           PList[Length(PList) - 1].Number := StrToIntDef(PLStringList.Strings[0],
  
positive.code:   if FState >= hsConnected then
    begin
      Socket.SendString('bye' + ProtoLineEnding);
      Socket.CloseSocket;
      FState := hsDisconnected;
      FStatusMessage := 'Not connected';
    end;
  
negative.code:         PList[Length(PList) - 1].Album := PLStringList.Strings[5];
        end;
  
        PLStringList.Free();
        Result := True;
      end;
    end;
  