problema en listbox

[delphi.com.ar]

Copiaste tu código textual??.. qué versión de Delphi utilizas?? nombras propiedades inexistentes en Delphi 7, por ejemplo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  AFileName: TFileName;
begin
  mediaplayer1.stop;
  listbox1.itemindex := (listbox1.ItemIndex + 1) mod listbox1.Count;
  AFileName := listbox1.items[listbox1.itemindex];
  if not FileExists(AFileName) then
    raise Exception.CreateFmt('Archivo no encontrado: %s', [AFileName]);

  mediaplayer1.FileName := AFileName;
  mediaplayer1.Play;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var 
 Dlg: string;
 k: Integer;
begin
 if Opendialog1.Execute = True then
 for k:= 0 to opendialog1.Files.Count-1 do
 begin
   dlg:= opendialog1.Files[k];
   listbox1.AddItem(opendialog1.Files[k], nil);
 end;
end;