anchor.diff:    { free old array }
     SetLength(FMimeTypesArray, 0);
     { set size of new array. Extra element for the terminating x.None value }
  -  SetLength(FMimeTypesArray, FMimedata.FormatCount+1);
  +  SetLength(FMimeTypesArray, FMimedata.Count+1);
   
     sl := FMimeData.Formats as TStringList;
     try
  -    for i := 0 to FMimeData.FormatCount-1 do
  +    for i := 0 to FMimeData.Count-1 do
       begin
         s := PChar(sl[i]);
         a := XInternAtom(xapplication.Display, s, TBool(False));
  
positive.code:       raise Exception.Create('fpGUI/X11: Application failed to aquire selection owner status');
  
      InitializeMimeTypesToAtoms;
      if FMimeData.FormatCount > 3 then
        SetTypeListProperty;
    end;
  end;
  
negative.code: 
    xev.xclient.data.l[0] := FSource.WinHandle;
  
    n := FMimeData.Count;
  
    if n > 3 then
      i := 1
  