おそらく厨房な質問で申し訳ありませんが・・・

TData = class
Data : array[1..8,1..1100] of Integer;

procedure TForm1.button1Click(Sender: TObject);
begin
for i:=1 to n do Data[i]:=Data.create; //nは数百ぐらいの任意の数
// 処理
end;

procedure TForm1.button2Click(Sender: TObject);
begin
for i:=1 to n do Data[i].Free;
close;
end;

ﾍﾙﾌﾟなぞみてここまではできました．
処理はうまくいきます．
しかしアプリを終了するときにエラーが出てしまいます．
メモリーが開放されていないようなのです．
何が足りないのが教えてください．