[Alegun]

Начнём с того, что в восьмёрке всё наоборот, это мышь имитирует тачскрин, она пока осталась в ней для обычных компов и ноутов. Действует принцип "один экран - один курсор", поэтому можно сделать вывод, что здесь необходимо только спрятать изображение указателя и само устройство типа мышь можно и не трогать. Вероятно требуется подобное

Код:

var
 CState: Integer;
...

 // Убрать изображение курсора
 CState:= ShowCursor(True);
 while Cstate >= 0 do
 Cstate:= ShowCursor(False);

...

 // Показать курсор
 Cstate:= ShowCursor(True);
 while CState < 0 do
 CState:= ShowCursor(True);

...