FreePascal.ru

Есть уравнение (x-x1)/(x2-x1)=(y-y1)/(y2-y1) , можно с помощью него проверить, лежит ли точка на отрезке. Но как его надо изменить, чтобы работало при различной толщине отрезка?

пример: есть массив a:array[0..2] of TObject, в нём объекты TButton, TEdit, TSpeedButton;
Каким образом можно к примеру изменить Parent этих объектов?
Так не работает: a[0].Parent:=...
спасибо за помощь