[alquimista]

Muchas gracias por las lecciones magistrales.

A ver si con toda esa ayuda puedo terminar mi programa..
Un saludo.

Una ultima pregunta:
¿Si libero ListaSprites, se libera la memoria de los objetos Secuencia que estan en ListaSprites?

for i:=1 TO MAXBOTS do
   if ListaSprites[i]<>nil then
      ListaSprites[i].free;

type
  TSprite = class
  public
    x, y, xAnterior, yAnterior: Integer;
    ColorTransparente: TColor;
    Imagen, Mascara,buffer: TImage;
    Seleccion: integer;
    deltx,delty:integer;
    Orientacion:TOrientacion;
    Secuencia: Array [1..MAXSEQ] of TSecuencia;

PD:A ver si puedo incrementar mi variable nivel un poco mas: nivel:=inc(nivel);