Código Delphi [-]

type Tlibro = class(Tobject)
private
  Fnombre:String;
public
  property Nombre:String read Fnombre Write Fnombre;
end;

var 
   Libros : TStack;
   libro : Tlibro;
begin
  Libros := TStack.create(true); // creamos la pila

  libro := Tlibro.create; // creamos un objeto libro
  libro.nombre := 'Delphi Maniacs';
  
  libros.push(libro); introducimos el libro en la pila.

end;

Código Delphi [-]
type
   PListItem = ^TListItem;
   TListItem = record
      next: PListItem;
      data: Pointer;
   end;
   TLinkedList = object
      procedure Add(data: Pointer);
      procedure Remove(data: Pointer);
      { otros procedimientos utiles que permitan
         por ejemplo recorrer la lista, etc }
end;

1. Lo que meta el la pila ha de ser una clase no puede ser una variable, por ejemplo un record con varios campos.
2. ¿Para liberar la memoria bastaría con lo siguiente?

Código Delphi [-]
libro := libros.pop;
libro.free;

Código Delphi [-]
var
  Q: TQueue;
begin
  Q := TQueue.Create;
  try
    Q.Push(Item);  { Agrega un item a la pila }
    ...
    Item := Q.Pop; { Quita un item y devuelve el mismo }
  finally
    Q.Free;
  end;

Código Delphi [-]
var
  ....
  lista: Tlist;
  aux_Elemento: Telemeto;
  aux_Cola: Tqueue;
  ...

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  lista:=tlist.Create;
  for i:=0 to 3 do
  begin
    aux_Cola:=tqueue.Create;
    lista.Add(aux_Cola);
  end;
end;

procedure TForm1.I1Click(Sender: TObject); 
// Pulsado un botón introducimos un texto
begin
  aux_Elemento:=Telemento.Create;
  aux_Elemento.cadena:=Texto_Entrada1.Text;
  aux_cola:=lista.Items[0];
  aux_cola.Push(aux_elemento);
  Texto_Contador1.Text:=inttostr(aux_cola.Count);
end;

Código Delphi [-]
lista.Items[0].Push(aux_Elemento);

1. ¿Tienes claro que estas creando cuatro pilas y usando solo una?
2. ¿No te convendrían las variables auxiliares que sean de uso local definirlas localmente y no globalmente?

Código Delphi [-]
lista.Items[0].Push(aux_Elemento);

Código Delphi [-]
TQueue(lista.Items[0]).Push(aux_Elemento);

1. Sí, el código es un poco más largo pero sólo puse el de una de las colas. Para entender bien los conceptos cree 4 edits de entrada, 4 de salida, 4 botones de entrada, 4 de salida y 4 edits (aunque hubiera valido un label) para los contadores; con ellos introduzco y extraigo cadenas de las lista de colas. Después lo complicaré más para lo que quiero hacer.
   
2. Lo de las variables locales es cierto, con el afan de crearme un ejemplo de forma rápida presté poca atención a ese detalle.

Código Delphi [-]
TQueue(lista.Items[0]).Push(aux_Elemento);