Список файлов заданного каталога? Опции

[kominet]

В общем есть массив
sBuffer:array of string;
в котором хранится список имён файлов (например 123.doc)
нужно создать список файлов из заданного каталога которых нет в массиве

особенно интересует как мне записать в массив список файлов из заданного каталога

[klem4]

type
  Tarray = array of integer;

procedure P(var a: Tarray);
begin
  setlength(a, 3);
end;