[S.M.S.]

Código Delphi [-]
implementation

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

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  BlockInput(True); //desactiva teclado y ratón
  Sleep(5000);
  BlockInput(False);//vuelve a activarlos
end;

Saludos.