[sofiaz]

esto es el procedimiento para mostrar la pila, es recursivo:

Código Delphi [-]
procedure MostrarPila1(var pila:tipopila;var pos:reparto.tipopos; var numImage:integer);
var
  cartaSimple:reparto.TipoRegPila;
  cadena,xx:string;
begin
    if pos<>_posNula
      then begin
           reparto.capturar(montones,pos,cartaSimple);
           pos:=cartaSimple.enlace;
           MostrarPila1(montones,pos,numImage);
           cadena:=inttostr(cartasimple.numero)+cartasimple.color;
           xx:='image'+inttostr(numImage);
           Form1.xx.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Cartas\'+cadena+'.jpg');
           Form1.listBox2.additem(inttostr(cartaSimple.numero)+'  '+cartasimple.color, Form1.ListBox2);
           numImage:=numImage+1;
           end;
end;

como se ve, la variable 'xx' es la que estaba usando ahora de prueba...