Como bloqueo el teclado?

[Nadie]

procedure trabarelteclado;
begin
  asm
   in al,21h
   and al,not 2
   out 21h,al 
  end;
end;

pd: soy un groso :P