Prozedur aufrufende Objekt-Instanz identifizieren

[roedel]

Hallo,

ich bastle zur Zeit an einem Datei-Browser. Wenn ich zwischen den beiden FileListBoxen per Drag&Drop die Items hin und her schiebe verwende ich immer die selbe Prozedur. Um im Hintergrund aber auch die Dateien verschieben zu können, muss ich wissen von welcher ListBox der Aufruf ausgeht.

Delphi-Quellcode:

procedure TForm1.TransferItems(Sender, Source : TObject; mode: char);
//TransferItems wird von der DragDrop-Ereignisbehandlungsroutine aufgerufen und bekommt von ihr
//Quell- und Zielobjekt übergeben
//mode -> verschieben oder kopieren

genau genommen: Wie kann ich Source und Sender unterscheiden? Beide sind vom Typ TFileListBox.
Für jede Richtung eine eigene Procedur implementieren wäre mir zu assi

Danke im Voraus
Rödel