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

[Shadow]

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

[Shadow]

А так обрабатываю события
ВСЕ ЗАРАБОТАЛО

-=-=-=-=-=-=--=

Procedure TForm7.MyPanMouseMov(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Label1.Caption:=((Sender as TPanel).Name);
  StatusBar1.Panels[4].Text:=((Sender as TPanel).Caption);

{
Вот тут самое интересное если бы не наткнулся на
эту строку то долго бы еще парился как определить
из какого динамичексго компонента пришло событие
Sender --- отправитель
}
(Sender as TPanel).Color:=clRed;
end;

{
Выборка динамического компонента
из массива и его изничтожение как
компонента, а тк же из базы данных
}
procedure TForm7.Del1Click(Sender: TObject);
Var
  Mufts:Integer;
  L,F:String;
begin
  Mufts:=StrToInt(Form7.StatusBar1.Panels[4].Text);
  MyPan[Mufts].Destroy;
  Form7.Query1.Locate('Number',Mufts,[]);
  L:=Form7.Query1.FieldByName('Lines').AsString;
  F:=Form7.Query1.FieldByName('Fiders').AsString;
  Form7.Table1.Locate('Number;Lines;Fiders',VarArrayOf([Mufts,L,F]),[]);
  Form7.Table1.Delete;
end;
{
при закрытии всей формы мы
уничтожим все компоненты
прикрепленные компоненту Image1
}
procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Image1.DestroyComponents;
end;

end.