procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TLabel then
    Accept:=True;
end;    procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source is TLabel then with TLabel(source) do begin
    parent:=panel1;
    left:=x;
    top:=y;
  end;
end;