procedure BlockInput; external 'user32.dll'; 

 procedure Block; 
 asm 
   push 1 
   call BlockInput 
 end; 

 procedure UnBlock; 
 asm 
   push 0 
   call BlockInput 
 end;