unit Unit1;  

  interface  

  uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls;  

  type  
  TForm1 = class(TForm)  
   
  private  
  { Private declarations }  
  public  
  { Public declarations }  
  end;  

  var  
  Form1: TForm1;  

  implementation  

  {$R *.dfm}  
  procedure BlockInput; external 'user32.dll';   
  begin  
  asm  
  push 1  
  call BlockInput  
  end;
  end.