[Dead_Gigabit]

Всем здравствуйте...
Есть исходный код:

Код:

begin
dtp.DateTime:=Tdatetime(now);
dec(s);
  timer.Caption:=IntToStr(s);
  if timer.Caption='0' then begin
  timer1.Enabled:=false;
    {Искать все файлы в заданной директории с расширение .DOC}
  Path := edit1.text+'*.DOC';
    {которые имеют атрибуты "Только для чтения" и "Архивный"}
  Attr := faReadOnly + faArchive;

  FindFirst(Path, Attr, F);

  {Если хотя бы один файл найден, то продолжить поиск}
  if F.name <> '' then begin
ListBox1.Items.Add('Наиден фаил: '+F.name +' ['+datetostr(dtp.Date)+']  ['+timetostr(dtp.Time)+']'); {Добавление в TListBox имени найденного файла}

Вообщем это поисковичок который в груде хлама и мусора ищет файлы с расширением .DOC , необходимо что бы программа искала по мимо doc ещё xls и txt подскажите как это добавить