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

[Shadow]

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

[Shadow]

Да создал массив
типа
MyPan: array[1..99]of Tpanel;

Так создаю

procedure TForm7.FormActivate(Sender: TObject);
Var
  c:String;
  i:Integer;

Label
  MuftsNext;

begin
  With Form7 do begin
    ScrollBox1.VertScrollBar.Position:=0;
    ScrollBox1.HorzScrollBar.Position:=0;
    ilLine.Caption:=Form2.NamesLine;
    ilFider.Caption:=Form2.NamesFider;
    ilAct_BasDat.Caption:=Form2.NamesDatBas;
  end;

  with Form7.Query1 do begin
    Close;        // закрыть файл-результат выполнения предыдущего запроса
    SQL.Clear; // удалить текст предыдущего запроса
                     // записываем новый запрос в свойство SQL
    SQL.Add('SELECT Number, Fiders, Lines, LonFroTp, 
      LonGoTp, Im_X, Im_Y, Mous_X, Mous_Y');
    SQL.Add('FROM "MuftZaos.db"');
    SQL.Add('WHERE');
    Sql.Add('(Lines="'+Form2.NamesLine+'")');    //выбор по двум
    Sql.Add('and');                             //значения
    Sql.Add('(Fiders="'+Form2.NamesFider+'")');//сразу по SQl запросу
    SQL.Add('ORDER BY Number, Fiders, Lines, LonFroTp,
      LonGoTp, Im_X, Im_Y, Mous_X, Mous_Y');
    Open;      // активизируем выполнение запроса
  end;
  Form7.Query1.First;
  c:=Form7.Query1.FieldByName('Number').asString;

MuftsNext:
  //  if Query1.Eof=true then begin
  //       exit;
  //     end
  //   else begin
  For i:=1 to Form7.Query1.RecordCount do begin
    MyPan[i] := TPanel.Create(Image1);
    MyPan[i].Name:='Pan' + c;
    //Parent :=ScrollBox1;
    MyPan[i].height := 10;
    MyPan[i].width := 10;
    MyPan[i].BevelInner:=bvLowered;
    MyPan[i].caption :=Form7.Query1.FieldByName('Number').asString;
    MyPan[i].Cursor:=crHandPoint;
    MyPan[i].Color:=clWhite;
    MyPan[i].PopupMenu:=PopupMenu1;
    MyPan[i].left:=Form7.Query1.FieldByName('Mous_X').asInteger;
    MyPan[i].top:=Form7.Query1.FieldByName('Mous_Y').asInteger;
    MyPan[i].Parent :=ScrollBox1;
    MyPan[i].OnMouseMove:=MyPanMouseMov;
    Form7.Image1.Left:=0;
    Form7.Image1.Top:=0;
    Form7.Query1.Next;
    //END;
    c:=Form7.Query1.FieldByName('Number').asString;
  end;

// Form7.Query1.Next;
// c:=Form7.Query1.FieldByName('Number').asString;
// Goto MuftsNext;
end;