Leer archivos de directorio

[[cHackAll]]

No es problema satisfacer tu duda; porsiacaso te dejo un ejemplillo utilizando APIs de otro hilo (0j0 que "$00434F44" es la extencion del archivo en hex en tal ejemplo), y te dejo una forma menos común de hacer lo que quieres solo para variar:

Código Delphi [-]
...
 WinExec('c:\windows\system32\cmd.exe "/cdir /b *.dbf > filelist.tmp"', SW_HIDE);
 ListBox1.Items.LoadFromFile('filelist.tmp');
 DeleteFile('filelist.tmp');
...

Recontra facil de entender... si no se aplica sigue el link anterior.

Suerte!