procedure newPanel();
var npanel:TPanel;
begin
inc(countPanel);
npanel:= TPanel.Create(Form1);
  npanel.Parent :=Form1.Panel2;
  npanel.Height :=40;
  npanel.Width:=40;
  npanel.left:= 125 ;
  npanel.Top:= 250;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
newPanel();
   Form1.ActiveControl:=panels[countPanel];
 //Panel16.Caption:=inttostr(countPanel);
end;

procedure TForm1.NewPanel(n:Integer);
var
  npanel: TMyPanel;
  nimage: TImage;
begin
  inc(countPanel);
  npanel:=TMyPanel.Create(Form1);
  npanel.Parent:=Form1.Panel2;
  npanel.Height:=60;
  npanel.Width:=60;
  npanel.left:=125;
  npanel.Top:=250;
  npanel.Caption:=inttostr(n);
  npanel.OnMouseDown:=MyMouseDown;
  npanel.OnMouseMove:=MyMouseMove;
  npanel.OnMouseUp:=MyMouseUp;
          panels[countPanel]:=npanel;

 nImage := TImage.Create(npanel);
nImage.Align := altop;
 nImage.Left := 125;
nImage.Top := 250;
nImage.Width := 50;
nImage.Height := 50;
 nImage.Picture.LoadFromFile(IntToStr(n)+'.bmp');
end;

procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
var
  Panel: TMyPanel;
begin
  Panel:=TMyPanel(Sender);
  Panel.InMove:=True;
  Panel.X0:=X;
  Panel.Y0:=Y;
if button = mbRight then  f:=true;
if button = mbleft then  f:=false;
end;

procedure TForm1.MyMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
var
  Panel : TMyPanel;   i,k:integer;  nImage:TImage;
begin
  nImage:=TImage(Sender);
  if (Panel.InMove) and f then  begin
  Panel.Destroy ;
  for i := 1 to countPanel do
  if panels[i].InMove then k:=i;
  for i:=k to countPanel-1 do
      panels[i] := panels[i+1];
  dec(countPanel)
   end else
 if (Panel.InMove) and not(f) then
  begin
    Panel.Top:=Panel.Top+Y-Panel.Y0;

    Panel.Left:=Panel.Left+X-Panel.X0;
    Panel1.repaint;
  end;
end;

procedure TForm1.MyMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
var
  Panel : TMyPanel;
begin
  Panel:=TMyPanel(Sender);
  Panel.InMove:=False;

end;