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