Firemonkey — удаление сгенерированных во время выполнения кнопок из TGridPanelLayout

Я не могу удалить динамически добавленные кнопки, используя этот код в Firemonkey, в то время как в Windows я успешно удаляю.

while GridPanelLayout7.ControlCount > 0 do
   GridPanelLayout7.Controls[0].Free;

Мой вопрос: почему это работает на 32-битной Windows, но не работает на платформе Android?

Процедура добавления динамической кнопки:

     btn := TButton.Create(nil);
     btn.Parent := GridPanelLayout7;
     btn.Align  := TAlignLayout.Client;
     btn.Text   := 'example';
     btn.TextSettings.WordWrap :=true;
     btn.OnClick := Btn_Click;

Я также пытался добавить этот код, но он такой же:

    for I := 0 to GridPanelLayout7.ControlsCount - 1 do
    begin
     GridPanelLayout7.Controls[0].Free;
    end;

person Dejan    schedule 21.02.2017    source источник
comment
stackoverflow.com/ вопросы/27818697/   -  person alitrun    schedule 21.02.2017