Работа со стеком. Добавление, удаление элемента.

[_DEADMAN]

Доброго времени суток.

Программа совсем простая - добавить и удалить элемент из стека. Стек описан как класс в отдельном юните.

unit UnitStack;

interface

type
   ptr = ^ZapStack;
   ZapStack = record
      inf : Integer;
      next : ptr;
   end;{ZapStack}

   Stack = class(Tobject)
      head, box : ptr;

      constructor create;
      procedure Add(data : Integer);
      procedure Read(var data : Integer);
      function GetHead : Integer;
   end;{Stack}

implementation

{ Stack }

constructor Stack.create;
begin
  inherited create;
  head := nil;
end;

procedure Stack.Add(data: Integer);
begin
  New(box);
  box^.inf := data;
  box^.next := head;
  head := box;
end;



procedure Stack.Read(var data : Integer);
begin
  if head <> nil then
  begin
     data := head^.inf;
     box := head;
     head := head^.next;
     dispose(box);
  end;
end;

function Stack.GetHead: Integer;
begin
  if head = nil then
     GetHead := 0
  else
     GetHead := 1;
end;

end.

Программа компилируется и запускается. Но при попытке добавить первый элемент, вылетает и отсылает в конструктор. Вот скрин ошибки.
Помогите пожалуйста разобраться.

[veniside]

походу экземпляр класса Stack не создан, покажите код создания

[_DEADMAN]

При нажатии Добавить

uses
   UnitStack;

var
   TStack : Stack;

procedure TForm1.Button1Click(Sender: TObject);
var
   a : Integer;
begin
   try
      a := StrToInt(Edit1.Text);
   except
       on Exception : EConvertError do
      ShowMessage(Exception.Message);
   end;

   TStack.create;
   TStack.Add(a);
end;

[veniside]

а должно быть так:

TStack := Stack.Create();

[_DEADMAN]

аааааййй...точно...
всё пора спать))

Большое спасибо!!!