Як вимкнути та ввімкнути курсор миші в 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;