Dateien (videos) wie sortiert hintereinander laden /aufrufen

[taktaky]

Hallo

ich lade ein Video in mein Form so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName:='01.avi';
MediaPlayer1.open;
MediaPlayer1.Display:=panel1;
MediaPlayer1.DisplayRect:=Panel1.ClientRect;
MediaPlayer1.Play;
end;

Ich habe aber 3 Videos : 01.avi, 01.avi, 03.avi

Ich möchte 2 Buttons erstellen:
Ein Button heisst "Nächste", lädt die Videos aufsteigend
Ein Button heisst "Vorherige", lädt die Videos absteigend

Hat jemand eine Idee?