{
{    The purpose of this request is to return the index of the next object in
{ the form following the current cursor position.
{
{       FDP$FIND_NEXT_OBJECT (X_POSITION, Y_POSITION, P_FORMS_STATUS,
{             OBJECT_INDEX)
{
{ X_POSITION: (input)  This parameter specifies the current cursor x position.
{
{ Y_POSITION: (input)  This parameter specifies the current cursor y position.
{
{ P_FORM_STATUS: (input)  This parameter specifies the form status record for
{       the form containing the cursor.
{
{ OBJECT_INDEX: (output)  This parameter returns the index of the next object
{       in the form.
{
