problema moviendo en el listbox

[ramphi]

hola gente como estan, he estado probando en un reproductor que estoy haciendo(el cual no he terminado aun) poner que se pueda ir a la cancion anterior, he logrado hacer esto pero cuando estoy en la primera cancion y presiono el boton hacia atras me da el siguiente error "list index out of bounds (-1)" como puedo hacer para que cuando llegue aqui toque la ultima cancion del listado.

aqui le pongo para ir hacia atras.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var play:string;
begin         form4.listbox1.itemindex:=(form4.listbox1.itemindex-1) mod form4.listbox1.Count;
        play:= form4.listbox1.items.Strings[form4.listbox1.itemindex];
        mediaplayer1.FileName:=play;
        mediaplayer1.Open;
        Mediaplayer1.Display:=form2;
        StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + form4.listbox1.items.Strings[form4.ListBox1.itemindex];
        Mediaplayer1.DisplayRect := rect(0,0,form2.Width,form2.Height);
        MEdiaPlayer1.Play;
end;

Salu2

[*Caro*]

Hola ramphi, para hacer lo que quieres en el ListBox yo utilizo los procedimientos Exchange y Move del ListBox, te dejo un ejemplo, lo acomodas tu a lo que necesitas si te sirve.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Indice :Integer;
begin
 Indice := ListBox1.ItemIndex;

 if ListBox1.ItemIndex > 0 then
   ListBox1.Items.Exchange(Indice, Indice-1)
 else
 begin
  ListBox1.Items.Move(Indice,ListBox1.Items.Count-1);
  ListBox1.ItemIndex := ListBox1.Items.Count-1;
 end;
end;

Saluditos

[ramphi]

gracias a tu metodo encontre la solucion