1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var myobject: array of Tmyclass;
[...]
setlength(myobject,3)
for a:=0 to 2 do myobject[a]:=Tmyclass.create;
[...]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var b:integer
begin
for b:=0 to 2 do myobject[b].free; // <== 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

unit Umyclass;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
    Tmyclass=class
    private
    indexoberster, grosseoberster:integer;
    inhalt:array of integer;
    
    public                  
    markiert:boolean;
    constructor create(lange,nr:integer);
    property spitze:integer read grosseoberster;
    property hohe:integer read indexoberster;
    function getinhalt(d:integer):integer;
    function itemabgeben:integer;
    procedure itemaufnehmen(grosse:integer);
    property stapel[d:integer]:integer read getinhalt;
    end;

implementation

function Tmyclass.getinhalt(d:integer):integer;
begin
  result:=inhalt[d];
end;

function Tmyclass.itemabgeben:integer;
var grosse:integer;
begin
grosse:=grosseoberster;
grosseoberster:=inhalt[indexoberster-1];
inhalt[indexoberster]:=0;
indexoberster:=indexoberster-1;
result:=grosse;
end;

procedure Tmyclass.itemaufnehmen(grosse:integer);
begin
inhalt[indexoberster+1]:=grosse;
indexoberster:=indexoberster+1;
grosseoberster:=inhalt[indexoberster];
end;

constructor Tmyclass.create(lange,nr:integer);
var i:integer;
begin
setlength(inhalt,lange);
  for i:=1 to lange do begin
    if nr=0 then inhalt[i]:=(lange+1)-i else inhalt[i]:=0;
  end;
if nr=0 then begin
indexoberster:=lange;
grosseoberster:=1;
end else begin
indexoberster:=0;
grosseoberster:=0;
end;
end;

end.					

 
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

{ ... }
constructor Tmyclass.create(lange,nr:integer);
var i:integer;
begin
setlength(inhalt,lange);
  for i:=1 to lange do begin
    if nr=0 then inhalt[i]:=(lange+1)-i else inhalt[i]:=0;
  end;
if nr=0 then begin
indexoberster:=lange;
grosseoberster:=1;
end else begin
indexoberster:=0;
grosseoberster:=0;
end;
end;					

1:
2:
3:
4:
5:

setlength(inhalt,lange+1); //das muss hier natürlich ne length von lange+1 haben, denn...

  for i:=1 to lange do begin  //hier gehe ich ja schon bis zum Index lange+1
    if nr=0 then inhalt[i]:=(lange+1)-i else inhalt[i]:=0; 
  end;