"протягивание" линии от выбранной точки Опции

[blackhard]

Задача такова: Написать программу построения чертежей планиметрии "протягиванием" от выбранной точки с изображением ее промежуточного положения с возможностью обозначения точек и проведения стандартных линий в треугольнике.
Как это сделать я впринципе знаю но есть 1 проблема это работа с указателем мыши.Для начала я попытался сделать так чтобы при нажатии на изображение рисовалась линия из текущего положения курсора в положение указателя мыши

procedure TForm1.Image1Click(Sender: TObject);
 var
Mo: TMouse;
MX, MY: integer;
begin
 MX := Mo.CursorPos.X;
 MY := Mo.CursorPos.Y;
 image1.canvas.LineTo(mx,my);
end;

получается чето не то линия проводится явно не к указателю мыши.Может это связано с масштабом Image1 (833x533)?подскажите.И еще какие свойства в Tmouse отвечают за нажатые кнопки мыши?

[blackhard]

И всетаки может ктонибудь поможет вывести формулу для нахождения координат основания высоты.У меня никак не выходит.Вот че у меня получилось:

Код

k1=(Yb-Yc)/(Xb-Xc)
K2=(Xc-Xb)/(Yb-Yc)
X=(-k2*Xa+Ya-((Xb*Yc-Xc*Yb)/(Xb-Xc)))/(K1-K2)
Y=k1*X+(Xb*Yc-XcYb)/(Xb-Xc)

это координаты основания высоты проведенной из точки А.
Вот уравнение высоты:

Код

Y=k2*X-k2*Xa+Ya

Высота проводится но она либо не достает до основания либо пересекает его и идет дальше.