Dinamik Api Cağirma Ile Kullanicinin Klavye ve Mouse'sini Kilitleme 

Windows kütüphanesinde bulunan  BlockInput apisi ile inputlari kolayca disable edebilirsiniz.
Burada Baska bir alternativi olarak Dinamik Olarak Cağirma kodunu verdim

function FuncAvail(_dllname, _funcname: string; var _p: pointer):boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname)) ;
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname)) ;
if _p <> NIL then Result := true;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  newBlockInput : function(Block: BOOL):BOOL; stdcall;
begin
 if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
newBlockInput(true) ;
Sleep(5000) ;
newBlockInput(false) ;
end;
end;
=================================
2. Alternatif

Uses Windows;

procedure TForm1.FormCreate(Sender: TObject);
  begin
      BlockInput(true) ;
      Sleep(5000) ;
     BlockInput(false) ;
end;