1 - Primeiro , coloque


2 - Timers ( Paleta System )
1 - Edit ( Paleta Standard )

2 - Declare no Private :


sJanelaAtiva,sJanelaOld : string;

Declare a seguinte função :


function JanelaAtiva: String;// Função de capturar o titulo da janela
var
Handle:THandle;
Len:LongInt;
Title: String;
begin
Handle:=GetForegroundWindow;
Len:=GetWindowTextLength(Handle) + 1;
SetLength(Title,Len);
GetWindowText(Handle,PChar(Title),Len);
JanelaAtiva:=TrimRight(Title);
end;

3 - Coloque no Timer1 :

var
i : integer;
begin
//Capturar Janela Ativa\\
sJanelaOld:=sJanelaAtiva;
sJanelaAtiva := JanelaAtiva;
if sJanelaAtiva <> sJanelaOld then
Edit1.Text:=JanelaAtiva;
end;

4 - Coloque no Timer2 , o seguinte código:

var str:String;
begin
str:=edit1.Text;
//Filtros de Palavras\\
if Pos('Porn',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
if Pos('porn',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
if Pos('Sexo',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
if Pos('sexo',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
if Pos('amadoras',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
if Pos('XNXX',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
if Pos('Redtube',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
if Pos('xnxx',str)>0 then
PostMessage(FindWindow(nil, Pchar(Edit1.Text)), WM_CLOSE,0,0);
end;


Conclusão

A lógica é a seguinte o primeiro timer vai pegar o caption da janela e jogar no Edit , o segundo timer vai checar se tem as palavras chaves no Edit ( Como "Porn" , ect ) se tiver ele vai fechar a janela do Programa. Esse filtro pode ser para qualquer coisa , basta apenas mudar as "palavras chaves".