动态创建lable组建，并实现lable的事件方发！（高分求答案）(200分)

问题：
在imge上有一个lable1可以实现拖动。
问题：
1。在imge上能动态创建lable，但我要实现动态的lable 也能拖放。拖放后把lable的left,top
存放在数据库中便于form.show 的时候把动态创建的lable显示出来，并其动态的lable能按照
先前摆放的位置显示。
2。动态的lable 的个数不定，在实现的动态创建的时候怎样控制！
xpanel,ypanel,xlabel,ylabel:integer;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
xpanel:=x;
ypanel:=y;
end;
procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
xpanel:=x;ypanel:=y;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
xlabel:=x;ylabel:=y;
end;
procedure TForm1.Label1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
Label1.left:=xpanel-xlabel;
Label1.top:=ypanel-ylabel;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
tmpl:=TLabel.create(Label1);
tmpl.Parent :=Form1 ;
tmpl.Caption :='123123';
tmpl.DragMode:=dmAutomatic;
tmpl.OnMouseMove :=Label1.OnMouseMove ;
tmpl.OnEndDrag:=Label1.OnEndDrag ;？出现问题，怎样能够在OnEndDrag中实现tmpl位置
的定位。
end;

gz