#pas
procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';// Вызов функции dll

procedure TForm1.N1Click(Sender: TObject);
begin
BlockInput(True);// Блокировка мыши и клавы 
end;