Jak zablokować mysz i klawiatur na określony czas

function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;
var LibHandle: tHandle;
begin
  Result := false;
  LibPointer := NIL;
   if LoadLibrary(PChar(LibName)) = 0 then exit;
   LibHandle := GetModuleHandle(PChar(LibName));
   if LibHandle <> 0 then
   begin
    LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
    if LibPointer <> NIL then Result := true;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var xBlockInput : function (Block: BOOL): BOOL; stdcall;
begin
  if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then
  begin
   xBlockInput (True);  // Disable Keyboard & mouse
    Sleep(10000);       // Wait for for 10 Secounds
   xBlockInput (False); // Enable  Keyboard & mouse
  end;
end;