[lmikle]

О, господя!!!
Ты знаешь все точки. Они у тебя в массиве...

Код:

For I := 1 To 9 Do
  If IsIntersect(A[i], A[I+1], B[i], B[I+1]) Then ...

Т.е. в функцию проверки пересечения мы передаем 4 точки - начало и конец для отрезка A и, соотв. начало и конец отрезка B. Функция возвращает логическое пересекается или нет. Если надо еще что-то вернуть, добавть var параметры - еще одну точку - точку пересечения.