Столкновение объектов типа шар, квадрат и треугольник

Помогите пожалуйста написать процедуры для проверки сталкивания между собой шариков, квадратиков и треугольников:(
В коде это "procedure ---.CheckHit()"
Для простоты квадраты и треугольники вписываются в окружности:)