1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

procedure TFVideo.HDDChange(Sender: TObject);
begin
     // Drive ändern
     Ordner.Drive:= HDD.Drive;
end;

procedure TFVideo.OrdnerChange(Sender: TObject);
begin
     // Directory ändern
     Files.Directory:= Ordner.Directory;
end;

procedure TFVideo.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
     // Wenn Play, dann...TUT NICHTS ZUR SACHE
     if Button = btPlay then
     begin
          Timer1.Enabled:= True;
     end
     else if Button = btStop then
     begin
          Timer1.Enabled:= False;
     end;
end;

procedure TFVideo.Timer1Timer(Sender: TObject);
{var
   a: integer;
   tmp: string;  }
begin
{   TUT NICHTS ZUR SACHE  
     if MediaPlayer1.Length = MediaPlayer1.Position then
     begin

     // Alles auf bereit schalten
     a:= 0;
     tmp:= MediaPlayer1.FileName;
           repeat
                 // a um eins hochzählen, bis a mit jetziger Datei übereinstimmt
                 a:= a + 1;
           until tmp = Files.Items.Strings[a];


     end;
     // Nächste Datei = a + 1
     MediaPlayer1.FileName:= Files.Items.Strings[a + 1];
     MediaPlayer1.Open;
     MediaPlayer1.Play;   }
end;

procedure TFVideo.FilesDblClick(Sender: TObject);
begin
     //Hier will ich dass ers abspielt!!!!!!!!!!!
     MediaPlayer1.FileName:= Files.FileName;
     MediaPlayer1.Open;
     MediaPlayer1.Play;
end;