Entsprechendes Listbox item nach drag löschen

[Ajintaro]

Hallo DP !

Ich habe 5 Listboxen und möchte die items hin- und her (ver)schieben.

Delphi-Quellcode:

 private
    { Private-Deklarationen }
    dragitem, drag_source:string;
    drag_integer:integer;


//SENDER
procedure TForm1.ListBox3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if button = mbLeft then with Sender as TListBox do begin
    if ItemAtPos (Point (x,y),true) >= 0 then
    begin
      dragitem:=ListBox3.Items[ListBox3.ItemIndex];//Namen des Elements
      drag_integer := ListBox3.ItemIndex; //position des Elements
      drag_source := 'ListBox3'; //herkunft des Elements
      BeginDrag (false);
    end;
 end;
end;

//EMPFÄNGER
procedure TForm1.ListBox4DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if Source is TListBox then with ListBox4 do begin
    Text := dragitem; //Name des Elements 
    listbox4.AddItem(Text,source);
     .Items.Delete(drag_integer); // <--- nach dem Drag Vorgang das item von Listbox-X an der Stelle drag_integer löschen
  end;
end;

Wie kann ich nach dem "Drop" das kopierte Element aus der Sender-Listbox löschen, wenn es theoretisch von 4 Listboxen stammen könnte?