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

procedure TForm1.Button1Click(Sender: TObject);
begin
    BlockInput(True); - заблокировать клаву и мыш
    sleep(5000);
    BlockInput(false); - разблокировать
end;