Cara Menampilkan & Menyembunyikan Cursor

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowCursor(False);  // Menyembunyikan Cursor
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ShowCursor(true);  // Menampilkan Cursor
end;