anchor.diff:        FClient.QueueSong(Filenames[i]);
         pbarUpload.Visible := False;
       end;
  -
  +    //todo move queueing into common function
       Screen.Cursor := crDefault;
       EnableAllGUI();
     end;
  
positive.code:   FLastFM := TLastFM.Create(frmLogin.edtLastFMUser.Text,
      GetAppConfigDirUTF8(False), FDebug);
  
    tmrPlaylistTimer(Self);
  end;
  
  
negative.code: 
  procedure TfrmMain.FormCreate(Sender: TObject);
  begin
    Self.Caption := Self.Caption + ' ' +  VERSION;
    FArtworkAttempts := 0;
    FCurrentlyDisplayedArtwork := '';
  