Движение панелей

[Muniz]

Создаю некое количество панелей во время выполнения программы. Теперь мне надо эти панели перемещать, но при попытке - возникает ошибка.
Подскажите, что надо объявить или сделать, чтоб это было возможно?

[Kotofff]

Мышкой тягать их хочешь ?
Если да - то посмотри вложение.

[Muniz]

Нет, не мышкой. Просто после создания, в зависимости от разных условий некоторые из них будут перемещаться.

[mihali4]

при попытке - возникает ошибка

Похоже, вы напортачили при создании панелей.
Приведите код создания и перемещения.

[Muniz]

Вот часть кода:

var i,n:integer; 
panela:array[1..225] of tpanel;
m:array[0..15] of integer;
begin
 n:=strtoint(form1.edit1.text); 
 p:=0;
  for i:=1 to n do
   begin
    panela[i]:=Tpanel.Create(form2);
    with panela[i] do
     begin
      parent:=form2;
      caption:=inttostr(m[i]);
      height:=17;
      width:=33;
      top:=50;
      left:=8+p;
      p:=p+48;
     end;
   end;
if .... then
sdwig(1,2);
end;

procedure tform2.sdwig(a,b:integer);
begin
 tpanel(form2.FindComponent('panel'+inttostr(a))).left:=
 tpanel(form2.FindComponent('panel'+inttostr(a))).left+8;
 tpanel(form2.FindComponent('panel'+inttostr(b))).left:=
 tpanel(form2.FindComponent('panel'+inttostr(b))).left-8;
end;

Использую такую процедуру для движения панели, так как не известно заранее, какие панели будут перемещаться...Прошу помочь найти ошибку.

[mihali4]

Ищете (FindComponent) по имени, а при создании имен панелям не присваиваете...
Добавьте

with panela[i] do
     begin
      parent:=form2;
      caption:=inttostr(m[i]);
      height:=17;
      width:=33;
      name:='panel'+IntToStr(i);
      top:=50;
      left:=8+p;
      p:=p+48;
     end;

[Muniz]

Всем спасибо, я разобрался:

procedure tform2.sdwig(a,b:integer;x:array of tpanel);
begin
 x[a].left:=x[a].Left+8;
 x[b].left:=x[b].Left-8;
end;