1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
  Edit1.BeginDrag(False);
end;

procedure TForm1.Label1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
i : Integer;
NextObject: TComponent;

begin
 if Source is TListBox then
  begin
   for i := 0 to ListBox1.Items.Count - 1 do
    if (ListBox1.ItemIndex > 0) or (ListBox1.ItemIndex = 0) then
      if ListBox1.Selected[i] then
   begin
      NextObject := FindComponent('Edit' + IntToStr(i));
      NextObject.Name := (ListBox1.Items.Strings[i]);
      ListBox1.Items.Delete(i);
   //Label1.Caption := (Source as TListBox).Items[i];
   end;

  end;

//if Source is TEdit then Label1.Caption := Edit1.Text;

end;

procedure TForm1.Label1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if (Source is TEdit) or
    (Source is TListBox) then
    Accept := True;

end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then ListBox1.BeginDrag(False);
end;