Drag and drop

[Hansa]

Hi,

habe hier >2 Listboxen. 8) Schiebe damit Zeilen hin und her. Jetzt kommts:

Delphi-Quellcode:

procedure TForm1.ListBox4DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source is TListBox then with Sender do begin
    Text := ListBox2.Items[ListBox2.ItemIndex];
    ListBox4.AddItem(Text,source);
    ListBox2.Items.Delete (ListBox2.ItemIndex);
  end;
end;

soweit, so gut, aber wie kann ich das allgemeingültig machen? Da steht jetzt explizit Listbox2 oder Listbox4 drin und so geht das denn auch, aber was, falls ListBoxAssarbad da steht und aus Listbox1 soll eine Zeile da rein ?