procedure FileNameToArr(dir, 
                       mask: string;  
                       var a: array of string; 
                       var DirFound: integer); 
var
  s: TSearchRec;
  i:integer;
begin
  i:=0;
  If FindFirst(dir+mask, faAnyFile, s) = 0 then begin
    repeat
      inc(i);
      a[i]:=dir+s.Name;
    until findnext(s) <> 0;
  end;
  FindClose(s);
  DirFound:=i;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  max = 512; // максимальное ко-во директорий к файлу
var
  a:array[1..max] of string;
  i, n:integer;
begin
  FileNameToArr('c:\', '*.txt', a, n);
  for i:=1 to n do
    Memo1.Lines.Append(a[i]);
  { выведет на экран все тектовые файлы директории c:\ }
end;