Joysound: Sounds abspielen per Joypad

[turboPASCAL]

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.