anchor.diff:    fPalettes := aPalettes;
     fRT := aRT;
   end;
  +
   
   procedure TKMSpritePack.Allocate(aCount: Integer);
   begin
  
positive.code:   end;
  end;
  
  //Release RAM
  procedure TKMSpritePack.ClearData;
  var I: Integer;
  begin
  
negative.code: 
  
  { TKMSpritePack }
  //We need to access to palettes to properly Expand RX files
  constructor TKMSpritePack.Create(aPalettes: TKMPalettes; aRT: TRXType);
  begin
    inherited Create;
  