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;
в виндовсе удаляет
в андроиде не удаляет
как удалить компонент в андроиде?