[lmikle]

А вот так:

Код:

HFile:=FindFirstFile(PChar(path+'\*.*'),FData);
...
if (FData.dwFileAttributes and faDirectory)<>0 
  then begin if (FData.cFileName <> '.') And (FData.cFileName <> '..') then LoadFile(path + FData.cFileName) end
  else
    if MatchesMask(FData.cFileName,'*.txt') Then
      begin
         // Делаем что-то полезное
      end
...