Alle Dateien aus einem gewählten Verzeichnis

[jbg]

Mit FindFirst/FindNext/FindClose

Code:

[b]var[/b] sr: TSearchRec;
[b]if[/b] FindFirst(Pfad + '*.txt', faAnyFile [b]and not[/b] faDirectory, SearchRec) = 0 [b]then
try
  repeat[/b]
    ListBox1.Items.Add(sr.Name);
  [b]until[/b] FindNext(sr) <> 0;
[b]finally[/b]
  FindClose(sr);
[b]end[/b];