anchor.diff:  
     if OpenDialog1.Execute() then
     begin
  -
       Screen.Cursor := crHourglass;
   
       for i := 0 to OpenDialog1.Files.Count - 1 do
  
positive.code:     else
      begin
        //Nothing playing
        lblTitle.Caption := '';
        lblArtist.Caption := '';
        lblAlbum.Caption := '';
  
negative.code:   PL: TPlaylist;
    i: integer;
  begin
    if Assigned(FClient) and (FClient.State >= hsConnected) then
    begin
      FClient.GetPlaylist(PL);
  