Nun gut,
1.)
Bitte Arbeite an deiner Formatierung des Quelltextes. Zur Zeit ist er , sagen wir mal, schlecht lesbar.
2.)
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
pfad := (ExtractFilePath(ParamStr(0)) + '\Sounds\');
if sysutils.DirectoryExists(pfad) then
begin
ListeDir(pfad, Listbox1.Items);
if Listbox1.ItemIndex > -1 then
Listbox1.Selected[0] := true;
end;
//...
Sollte man unbedingt so machen. Denn was passiert denn wenn das verzeichnis leer oder nicht vorhanden ist ?
3.)
38 Timer ? Muss das denn sein ? Einer reicht völlig aus denke ich.