снова динамические компоненты Опции

[Shadow]

:D
=====
Здоровеньки
=-=-=-=-=-=-=
Вот создать ясно как, а
как их теперь их разрушить
ведь как они точно зваться Я не знаю
-=-=-=-=-=-=-=

[Shadow]

так создаю компонент
точнее так они все содаютсч сколько понадобится МУФТ
на кабеле

MyPan := TPanel.Create(Image1);   //  MyForm теперь "обладает" MyButton
with MyPan do
BEGIN
Parent :=ScrollBox1;
MyPan.Name:=('MyPan')+Form7.Query1.FieldByName('Number').asString;
 height := 10;
  width := 10;
   BevelInner:=bvLowered;
    caption :=Form7.Query1.FieldByName('Number').asString;
     MyPan.Cursor:=crHandPoint;
      MyPan.Color:=clWhite;
       MyPan.PopupMenu:=PopupMenu1;
        MyPan.OnMouseMove:=MyPanMouseMov;
         Form7.Image1.Left:=0;
        Form7.Image1.Top:=0;
       left:=Form7.Query1.FieldByName('Mous_X').asInteger;
      top:=Form7.Query1.FieldByName('Mous_Y').asInteger;
END;