Procedure mit unterschiedlichen Objekten

[toms]

Vielleicht so?

Delphi-Quellcode:

procedure TPowerplay.Vorr(Sender: TCustomListBox; Markiert: Integer);
begin
  sel := Markiert + 1;
  Sender.Selected[sel] := True;
  label4.Caption := Sender.Items[sel];
  label3.Caption := Pfadlist.Items[sel];
  if sel = Sender.Items.Count - 1 then 
  begin 
    vor.Enabled := False;
    zu.Enabled  := True;
  end;
  mp3play;
end;