удаление элементов. срочно скоро защита диплома

[Донцов]

if RadioButton11.Checked=true then             //1/128
begin
Button:=TShape.Create(Form1);
Button.Parent:=Form3;
Button.Left:=xc-10;
Button.Top:=yc-50;
Button.Visible:=true;
Button.Shape:=stCircle;
Button.Height:=25;
Button.Width:=25;
Button.Brush.Color:=clred;
Button.Enabled:=false;
dva:=dva+3;
end;

я создал элемент и разместил его на форме, дальше нужно чтобы при нажатии на кнопку "очистить" эти элементы удалялись. помогите

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[eoln]

Button.Free

Формы разные? А зачем?

Button:=TShape.Create(Form1);
Button.Parent:=Form3;

[Serge_Bliznykov]

при нажатии на кнопку "очистить" эти элементы удалялись

"Эти" - это созданные динамически TShape ?

попробуйте так:

for i := Form3.ComponentCount - 1 downto 0 do
   if Components[i] is TShape then
        (Components[i] as TShape).Free;

если не сработает - пишите, разберёмся.

Сообщение от eoln

Формы разные? А зачем?

Button:=TShape.Create(Form1);
Button.Parent:=Form3;

я проглядел...
присоединяюсь к вопросу - для чего Вы владельцем создаваемого элемента делаете одну форму, а родителем - другую?!
Какой в этом смысл?!
или это просто от неумело скопированного (судя по "Button") кода?