[ecfisa]

De nada blackx5n.

Pero hacía mucho tiempo que no implementaba listas..., voy a rectificar el código de liberación de la lista:

Código Delphi [-]
// Liberar
procedure LiberarLista(var lst: pNodo);
var
  act,sig: pNodo;
begin
  act := lst;
  while act <> nil  do
  begin
    sig := act.sig;
    Dispose(act);
    act := sig;
  end;
end;

Saludos.