"Objekt: Keller" geht nicht...

[ArchaicSeraphim]

Sorry, ist immer noch nicht fertig. Jetzt geht Folgendes nicht:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Keller, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Keller: TKeller;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Keller:=TKeller.create
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Keller.push('m');
  Label1.Caption:=Keller.top;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Keller.push('X');
  Label1.Caption:=Keller.top;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Keller.pop;
  Label1.Caption:=Keller.top;
end;

end.

Hat das was mit dem n zu tun? Und wie kann ich's so deichseln, dasses geht?
Danke schonmal jedenfalls.

€dit: bei 0 starten lassen kann ich nicht wegen

Delphi-Quellcode:

constructor TKeller.create;
begin
  inherited create;
  n:=1;
  FKeller[n-1] := 's';    // <<<< undefiniert bei n=0, oder?
end;