Не удаляет компонент

[petyaas]

procedure TForm2.Button1Click(Sender: TObject);
var frec:trectangle;
begin
frec:=trectangle.Create(self);
frec.Parent:=rectangle1;
frec.Name:='frec_1';
frec.Align:=talignlayout.Top;

end;

procedure TForm2.Button2Click(Sender: TObject);
var dfrec:trectangle;
begin
dfrec:=form2.FindComponent('frec_1') as trectangle;
dfrec.Free;
end;

в виндовсе удаляет

в андроиде не удаляет

как удалить компонент в андроиде?

Изменено 27 ноября, 2016 пользователем Andrey Efimov
добавил тег "код"

[sinuke]

 

добавить перед Free:

drect.parent := nil

(вроде бы)

Изменено 27 ноября, 2016 пользователем sinuke

[Andrey Efimov]

Как правильно удалять контролы в RunTime?

[petyaas]

Благодарю!!!!