anchor.diff:    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.Add(GetEnumName(TypeInfo(TRXType), Integer(RT)));
  +      ListBox1.Items.AddPair(GetEnumName(TypeInfo(TRXType), Integer(RT)), IntToStr(Integer(RT)));
   
     if ListBox1.Items.Count = 0 then
     begin
  
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: procedure TRXXForm1.btnPackRXXClick(Sender: TObject);
  var
    RT: TRXType;
    I,J: Integer;
    Tick: Cardinal;
  begin
    btnPackRXX.Enabled := False;
  