Reproducir videos seguidamente en TMediaPlayer

[kolfito]

Buenas, mi duda es la siguiente trato de hacer un reproductor de videos con un TMediaPlayer, los videos se cargan en una listbox pero necesito que al acabar un video reproduzca el siguiente en la listbox y al acabar el ultimo se pare. Lo estoy itentando con Mediaplayer.Wait = true delante del mediaplayer.play pero con esto me desactiva todos los botones y también el timer1 que llama a la progressbar, ademas de que se queda reproduciendo el ultimo video sin parar.
Pongo mejor el codigo(boton de play):

procedure TForm1.ToolButton1Click(Sender: TObject);
var
i: integer;
x: integer;
begin
i := listbox1.itemindex;
x := listbox1.Count;

if i = -1 then
begin
ListBox1.ItemIndex := 0;
end;

while listbox1.ItemIndex < x do
begin
mediaplayer1.filename := listbox1.Items[listbox1.itemindex];
mediaplayer1.Display := Panel_pantalla;
mediaplayer1.Open;
mediaplayer1.DisplayRect := Panel_pantalla.ClientRect; //rec es el rectangulo. Quiere decir que el rectangulo del display y el del panel 1 han de ser iguales.
progressbar1.Max := mediaplayer1.Length;
progressbar1.Position := 0;

mediaplayer1.Wait := true;

mediaplayer1.play;
timer1.Enabled := true;

mediaplayer1.wait := false;

mediaplayer1.Stop;
mediaplayer1.Close;

// incremento para pasar al siguiente item de la listbox
listbox1.ItemIndex := listbox1.ItemIndex + 1;
end;
end;

Alguien sabe como solucionar esto?

Gracias de antemano