procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL' name 'BlockInput';

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
   BlockInput( true );
   Sleep( 5000 );
   BlockInput( false );
end;