Все скрытые файлы заданного каталога с расширением TXT сделать архивными

не могу понять как это можно осуществить ....
если кто может помогги те а

Для начала почитай это:
FAQ: Работа с файлами
Вот из хелпа:

{Sample code for the FindFirst and FindNext procedures.}
 uses WinDos,WinCrt;
var
  DirInfo: TSearchRec;
begin               { Change Archive to faArchive }
  FindFirst('*.PAS', faArchive, DirInfo);               {Same as DIR *.PAS }
  while DosError = 0 do
  begin
    Writeln(DirInfo.Name);
    FindNext(DirInfo);
  end;
end.

Вот пример по установке атрибутов файла:

{Sample code for the SetFAttr procedure.}
uses WinDos;
var
  F: file;
begin
  Assign(F, 'C:\AUTOEXEC.BAT');
  SetFAttr(F, faHidden); { Uh-oh }
  Readln;
  SetFAttr(F, faArchive); { Whew! }
end.