Освобождение динамического массива. Delphi XE7

[Satellite]

Проблема такая: На Windows - массив кнопок освобождается. На Android - НЕ освобождается.
 
Пример:

  TMyButton = class(TButton)
  end;

var
  Form1: TForm1;
  btn: array [0..1,0..6] of TMyButton;

Создание кнопок:

procedure TForm1.btn1Click(Sender: TObject);
var i,j:integer;
begin
  For j:=0 to High(btn) do
  begin
    for i:=0 to High(btn[j]) do
    begin
      btn[j,i]:=TMyButton.Create(form1);
      btn[j,i].Parent:=form1;
      btn[j,i].Position.X:=((round(form1.Width)) div 2) - (((high(btn[0])*((round(form1.Width)) div 9) + ((round(form1.Width)) div 8)*2)) div 2) +i* ((round(form1.Width)) div 8) +i*3;
      btn[j,i].Position.Y:=form1.Height - 105+ (j*50+j*2);
      btn[j,i].Width:=((Round(form1.Width)) div 8);
      btn[j,i].Height:=Round(form1.Height) div 3+5;
    end;
  end;
end;

Освобождение:

procedure TForm1.btn2Click(Sender: TObject);
var i,j:Integer;
begin
     for j:=0 to High(btn) do
  begin
    for i:=0 to high(btn[j]) do
    begin
    btn[j,i].free;
    end;
  end;
end;

ЧЯДНТ? 

[Brovin Yaroslav]

Добрый день,

 

Нужно прочитать:

1. Как правильно удалять контролы в RunTime?
2. Пользоваться Free или DisposeOf?