Блокировка всего, кроме моего приложения

implementation
  uses Unit2;
{$R *.dfm}
 
function enum(hd:hwnd;Lparam:Lparam):boolean;
begin
if (IsWindowVisible(hd))and(hd<>form1.Handle)and(hd<>Application.Handle) then begin
  if lparam=0 then
   enablewindow(hd,false)
  else
   enablewindow(hd,true);
end;
 
 
result:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
enumwindows(@enum,0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled:=false;
enumwindows(@enum,1);
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text='123'then begin form2.showmodal; form1.Close; end;
 
end;
 
end.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled:=false;
enumwindows(@enum,1);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text='123'then begin form2.showmodal; form1.Close; end;
 
end;

begin
if edit1.text='123'then begin Timer1.Enabled:=false;
enumwindows(@enum,1); form2.showmodal;  end;
end;

if (IsWindowVisible(hd))and(hd<>form1.Handle)and(hd<>form2.Handle)
and(hd<>form3.Handle)and(hd<>Application.Handle) then begin