Проверить на пересечение два прямоугольника, заданные целочисленными значениями
function OverlapRectInt(ax0, ay0, ax1, ay1, bx0, by0, bx1, by1: integer; flBorder: boolean): boolean;