Как отключить и включить курсор мыши в Delphi

Код из примера ниже отключит курсор мыши, но сама мышка при этом будет работать. То есть пользователь не будет видеть только курсор и всё. Саму же мышку можно будет интуитивно навести на какой-нибудь объект на форме (например, кнопку). Также можно будет кликать как левой так и правой кнопкой мыши.

Отключение курсора мыши

// Отключаем курсор мыши
procedure TForm1.Button1Click(Sender: TObject);
var
  CState: Integer;
begin
  CState := ShowCursor(True);
  while Cstate >= 0 do
    Cstate := ShowCursor(False);
end;

Включение курсора мыши

// Включаем курсор мыши
procedure TForm1.Button2Click(Sender: TObject);
var
  Cstate: Integer;
begin
  Cstate := ShowCursor(True);
  while CState < 0 do
    CState := ShowCursor(True);
end;