int pascal RectIsEmpty(RECT r)

  This function tests a rectangle to see if it is empty. An empty
rectangle is one whose top is greater than or equal to its bottom or
whose left is greater than or equal to its right.

Parameters
  r is the rectangle to test.

Returns
  TRUE if the rectangle is empty, FALSE if not.