Help with Functions PtInRect and OverlapRect

Class TRect
	Field Left:Int
	Field Top:Int
	Field Right:Int
	Field Bottom:Int
	Field Width:Int
	Field Height:Int
	
	Method New(aLeft:Int,aTop:Int,aRight:Int,aBottom:Int)
		Left=aLeft
		Right=aRight
		Top=aTop
		Bottom=aBottom
		Width=Right-Left
		Height=Bottom-Top
	End
	
	Function Bounds:TRect(aLeft:int,aTop:int,aWidth:int,aHeight:int)
		return New TRect(aLeft,aTop,aLeft+aWidth,aTop+aHeight)
	End
End

Function PTInRect:Bool(x1:Int,y1:Int,aRect:TRect)
	Return (y1>=aRect.Top) And (y1<aRect.Bottom) And (x1>=aRect.Left) And (x1<aRect.Right) 
End

Function OverlapRect:Bool(Rect1:TRect, Rect2: TRect)
	Local result : Bool
  
	result=PTInRect(Rect1.Left,Rect1.Top,Rect2)
    if Not result then result=PTInRect(Rect1.Right,Rect1.Top,Rect2)
    if Not result then result=PTInRect(Rect1.Left,Rect1.Bottom,Rect2)
    if Not result then result=PTInRect(Rect1.Right,Rect1.Bottom,Rect2)
	Return result

End

Function OverlapRect:Bool(Rect1:TRect, Rect2: TRect)
	Local result : Bool
    result=false
	
	if Not result then result=PTInRect(Rect1.Left,Rect1.Top,Rect2)
    if Not result then result=PTInRect(Rect1.Right,Rect1.Top,Rect2)
    if Not result then result=PTInRect(Rect1.Left,Rect1.Bottom,Rect2)
    if Not result then result=PTInRect(Rect1.Right,Rect1.Bottom,Rect2)
	
	if Not result then result=PTInRect(Rect2.Left,Rect2.Top,Rect1)
    if Not result then result=PTInRect(Rect2.Right,Rect2.Top,Rect1)
    if Not result then result=PTInRect(Rect2.Left,Rect2.Bottom,Rect1)
    if Not result then result=PTInRect(Rect2.Right,Rect2.Bottom,Rect1)	
	return result

End

Function RectOverlap:Bool(x1#,y1#,x2#,y2#,x3#,y3#,x4#,y4#)
	if x2 < x3 Then return false
	if x1 > x4 Then return false
	if y2 < y3 Then return false
	if y1 > y4 Then return false
	return true
End Function

Function PointInRect:Bool(px#,py#,x1#,y1#,x2#,y2#)
	if px < x1 Then return false
	if px > x2 Then return false
	if py < y1 Then return false
	if py > y2 Then return false
	return true
End Function

Function CheckRects:Bool(Rect1:TRect,Rect2:TRect)
	return RectOverlap(Rect1.Left,Rect1.Top,Rect1.Right,Rect1.Bottom,Rect2.Left,Rect2.Top,Rect2.Right,Rect2.Bottom)
End