[[enecumene]]

Aunque el hilo es viejito, pero por si acaso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowCursor(False);  // Ocultar cursor 
end;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowCursor(True);  // Mostrar cursor 
end;

Saludos.

Edito: Ah joder por no leer bien veo que ya habias visto la función.