Hvad er der galt her

var
S: String;
begin
randomize;

S := listbox1.Selected[random(ListBox1.Items.Count - 1) + 1];

Hvis det er fordi du vil vælge en tilfældig item i din listbox så brug dette istedet:

var
S: string;
begin
Randomize;

S := Listbox1.Items[Random(ListBox1.Items.Count - 1)];

var
  S: String;
begin
  Randomize;
  ListBox1.ItemIndex := Random(ListBox1.Items.Count);
  S := ListBox1.Items.Strings[ListBox1.ItemIndex];

^ ?

Mvh
DiZpel

Er det dette du mener?:
S := listbox1.Items.Strings[random(ListBox1.Items.Count - 1) + 1];

Mvh
DiZpel

jeg skulle måske have forklart lidt om problemet

den kode DiZpel gav mig, det var den jeg brugte til at afspille en tilfældig sang. men den valgte sang bliver ikke mærkeret.

så jeg vil have at den skal mærker en tilfældig sang.

søren den virker, men sangen bliver ikke mærkeret

kom nu er der ikke en der kan hjælpe???