Problemas con estructuras

[[Lepe]]

En la ayuda dice esto:

TStack maintains a last-in first-out array of pointers.

Unit
Contnrs

por tanto, debe que dar así:

Código Delphi [-]
unit Compilador;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, HashTrie,
  Contnrs // la unidad que viene en la ayuda "Unit"
  ;

type

  TMiObjeto = class(TObject);
    public
       nombre:string;
   end;

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);
  private
    htable :TStringHashTrie;
    htable2 : TStringHashTrie;
    Stack : TStack;
   //procedure ShowTable;
  public

  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
  miLista:TStringList;
  listaAux :TStringList;
  Stack: TStack;
  c :TMiObjeto;
begin
   Stack := TStack.Create; // adquirimos memoria y creamos el objeto


   Stack.free; // finalmente para destruirlo

Te aconsejo que mires en la ayuda, yaque existe TObjectQueue y TobjectStack que son más fáciles de usar, así como otros tipos de pilas LIFO y FIFO.

Saludos