anchor.diff:  procedure TRXXForm1.btnPackRXXClick(Sender: TObject);
   var
     RT: TRXType;
  -  I: Integer;
  +  I,J: Integer;
     Tick: Cardinal;
   begin
     btnPackRXX.Enabled := False;
  
positive.code:          'Please make sure this folder exists.');
  
    for I := 0 to ListBox1.Items.Count - 1 do
    if ListBox1.Selected[I] then
    begin
      RT := TRXType(I);
  
      fRxxPacker.Pack(RT, fPalettes);
  
      ListBox1.Selected[I] := False;
      ListBox1.Refresh;
    end;
  
    Label1.Caption := IntToStr(GetTickCount - Tick) + ' ms';
    btnPackRXX.Enabled := True;
  
negative.code:   for RT := Low(TRXType) to High(TRXType) do
      if (RT = rxTiles) //Tiles are always in the list
        or FileExists(ExeDir + 'SpriteResource\' + RXInfo[RT].FileName + '.rx') then
        ListBox1.Items.AddPair(GetEnumName(TypeInfo(TRXType), Integer(RT)), IntToStr(Integer(RT)));
  
    if ListBox1.Items.Count = 0 then
    begin
  