anchor.diff:           'Please make sure this folder exists.');
   
     for I := 0 to ListBox1.Items.Count - 1 do
  -  if ListBox1.Selected[I] then
  -  begin
  -    RT := TRXType(I);
  +    if ListBox1.Selected[I] then
  +    begin
  +      J := StrToInt(ListBox1.Items.ValueFromIndex[I]);
  +      RT := TRXType(J);
   
  -    fRxxPacker.Pack(RT, fPalettes);
  +      fRxxPacker.Pack(RT, fPalettes);
   
  -    ListBox1.Selected[I] := False;
  -    ListBox1.Refresh;
  -  end;
  +      ListBox1.Selected[I] := False;
  +      ListBox1.Refresh;
  +    end;
   
     Label1.Caption := IntToStr(GetTickCount - Tick) + ' ms';
     btnPackRXX.Enabled := True;
  
positive.code: procedure TRXXForm1.btnPackRXXClick(Sender: TObject);
  var
    RT: TRXType;
    I: Integer;
    Tick: Cardinal;
  begin
    btnPackRXX.Enabled := False;
  
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
  