Procedure mit unterschiedlichen Objekten

[Moyyer]

Delphi-Quellcode:

procedure TPowerplay.Vorr(Markiert: integer);
begin
sel := Markiert + 1;
pllist.Selected[sel] := true;
label4.Caption := pllist.Items[sel];
label3.caption := Pfadlist.Items[sel];
if sel = pllist.Items.Count - 1 then begin vor.Enabled := false;
                                           zu.Enabled := true;
                                     end;
mp3play;
end;

Hallo

Oben hab ich eine Procedure aus meinem Programm. Mein Problem ist, dass diese Procedure von zwei Objekten gleichzeitig genutzt werden soll. Ich habe die Komponenten (pllíst = Listbox und Filelist = Filelistbox). Je nach benutzung, soll (bildlich) aus allen pllist filelist werden und andersrum. Wie kann ich das realisieren?

Thx Moyyer