Title: Show/hide mouse cursor
Use for this ShowCursor function. If parameter of this function is False, then cursor will be hidden.
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(False); // Hide cursor
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True); // Show cursor
end;