Изменение атрибута файла при нажатии на кнопку

[Sciv]

Сообщение от Пепел Феникса

[url]это ваше предположение.

Скорее наблюдение

[The Real Kos]

Ну в общем говоря, вот что мне нужно сделать:

Имеется заданный каталог, потоки-читатели считывают и отображают информацию о файлах и подкаталогах (размер, атрибуты файла, имена и пр.), потоки-писатели выполняют изменение атрибутов и содержимого файлов, создают или удаляют файлы и каталоги

Я решил пойти пока от самого "простого", чтобы по нажатию кнопки у меня создавались файлы и удалялись с каким нибудь периодом, допустим "sleep(5000)". Вот что пока напридумывал:

procedure TForm1.btn1Click(Sender: TObject);

Var f:System.Text; //класс текстового файла
t:System.Text;
r:System.Text;
int : Integer;
i : Integer;
x,y,z : string;

const
x1='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; x2='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; x3='1234567890';
y1='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; y2='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; y3='1234567890';
z1='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; z2='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; z3='1234567890';
attr: array [1..9] of integer=(0,1,2,4,8,16,32,64,71);
//faReadOnly	  1
//faHidden	    2
//faSysFile	    4
//faVolumeID    8
//faDirectory	 16
//faArchive	   32
//faSymLink	   64
//faAnyFile	   71

begin
  ForceDirectories('E:\TEST\TEST1');
  ForceDirectories('E:\TEST\TEST2');
  ForceDirectories('E:\TEST\TEST3');

  SetFileAttributes('E:\TEST\TEST1\1.txt', FILE_ATTRIBUTE_NORMAL);
  DeleteFile('E:\TEST\TEST1\1.txt');
  sleep(5000);
  x:= x1[Random(33)+1] + x2[Random(26)+1] + x3[Random(10)+1];
  AssignFile(f,'E:\TEST\TEST1\1.txt'); //регистрация файла
  Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляется, новый пустой появляеться)
  //Reset(f); //просто открываем файл для редактирования
  Write(f, x); //записываем строку в файл без перевода курсора на новую строку
  CloseFile(f); //закрываем файл
  SetFileAttributes('E:\TEST\TEST1\1.txt', attr[Random(9)]);

  SetFileAttributes('E:\TEST\TEST2\2.txt', FILE_ATTRIBUTE_NORMAL);
  DeleteFile('E:\TEST\TEST2\2.txt');
  sleep(5000);
  y:= y1[Random(33)+1] + y2[Random(26)+1] + y3[Random(10)+1];
  AssignFile(t,'E:\TEST\TEST2\2.txt');
  Rewrite(t);
  Write(t, y);
  CloseFile(t);
  SetFileAttributes('E:\TEST\TEST2\2.txt', attr[Random(9)]);

  SetFileAttributes('E:\TEST\TEST3\3.txt', FILE_ATTRIBUTE_NORMAL);
  DeleteFile('E:\TEST\TEST3\3.txt');
  sleep(5000);
  z:= z1[Random(33)+1] + z2[Random(26)+1] + z3[Random(10)+1];
  AssignFile(r,'E:\TEST\TEST3\3.txt');
  Rewrite(r);
  Write(r, z);
  CloseFile(r);
  SetFileAttributes('E:\TEST\TEST3\3.txt', attr[Random(9)]);
end;

end.

Если кто-нибудь что-нибудь знает, подскажите как можно то то, или то то реализовать