anchor.diff:            if Assigned(ProgressCallBack) then ProgressCallBack(Percentage);
           end;
         finally
  -        CloseFile(fin);
  +        FileClose(fin);
         end;
   
         SetLength(DataArray, 0);
  
positive.code:       Log('q successful, sending data…');
  
        SetLength(DataArray, BLOCK_SIZE);
        AssignFile(Fin, Filename);
  
        try
          FileMode := fmOpenRead;
          Reset(Fin, 1);
  
          for i := 0 to (FileSizeValue div BLOCK_SIZE) do
          begin
  
negative.code:   //only do this if at least authenticated…
    if FState >= hsAuthenticated then
    begin
      FileSizeValue := FileUtil.FileSize(Filename);
      Log('Queueing song ' + SysToUTF8(ExtractFilename(UTF8ToSys(Filename))) + '…');
      SendString('q|' + SysToUTF8(ExtractFilename(UTF8ToSys(Filename))) + '|' +
        IntToStr(FileSizeValue));
  
      Reply := ReceiveString();
  