Permissão de arquivos ! como faço isso

Bom galera eu preciso resolver uma coisa urgente aki que tou quebrando muito a cabeça tou 2 dias sem durmir por causa disso espere que vocês pode me ajudar a solucionar esse pequeno problema eu preciso fazer isso no delphi pq cliente sismou que quer ai você sabem como é ne ele que fazer esse sisteminha para bloquiar as coisas para o filho dele e ele quer dessa seguinte maneira que expliquei . Valew ai !

Função do programa :

Ele carrega do website 2 arquivos texto 1 de permissão e outro de bloqueios, sendo que ele verefica

os arquivos que estão bloquiados e não permite ele abrir . 2 os arquivo do memo chamado permitir a função dele

e deixar o nome dos arquivos abrir.

No caso eu precisaria de nenhum outro programa ser executado ser fora arquivos do windows ele elimina tudo quando eu abrir o meu programa do delphi ele fecha todos processos que nao estao na lista como permitidos que no caso sao os bloquiado !

Teria que ficar em loop o sistema no timer mesmo !

Ferramentas que vai ser usadas !

2 Timer com intervalo de 1 ( para ficar dando loop na lista automatico caso mude algo )

1 timer chamado block, 2 timer chamado permitir

2 memo - 1 chamado bloquiado , 2 chamado permitir

1 Paleta Indy - IdHTTP

1 - timer da finalização que verefica se esta permitido ou não e fecha tudo que nao e permitido !

Preview do programa bem simples

/applications/core/interface/imageproxy/imageproxy.php?img=http://img156.imageshack.us/img156/5923/previewgs6.jpg&key=13a553640994622862ba11d5dd193e86141fd23d29b30264f3de476c5ae98757" alt="Imagem Postada" />

Inicio do meu codigo so sei ate aki !

procedure TForm1.blockTimer(Sender: TObject);
begin

bloquiado.text := IdHTTP1.Get('http://www.nomedosite.com.br/block.txt');
end;

procedure TForm1.permitTimer(Sender: TObject);

begin

permitir.text := IdHTTP1.Get('http://www.nomedosite.net/permiti.txt');
end;

Bom espero que podem me ajudar valew !