Du weisst deinem Ziel(en) diese Events zu und den bei den Quellen setzt du die Property DragMode=dmAutomatic.
In der Caption ist der neue Wert enthalten, den du entsprechend weiterverarbeiten kannst.
Delphi-Quellcode:
procedure TForm1.Label2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Assigned(Source) and (Source is TLabel);
end;
procedure TForm1.Label2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Assigned(Source) and (Source is TLabel) then
(Sender as TLabel).Caption := (Source as TLabel).Caption;
end;