Код:
n,k:Tpoint; // n - первая точка, k - вторая
Angle:real; // Это будет тангенс кое какого угла..
Angle:=(k.y-n.y)/(k.X-n.x); //вычисляем тангенс.
Canvas.MoveTo(0, Round(k.y-k.X*Angle)); //(перемешаемся..)
Canvas.LineTo(Form6.Width, Round(Form6.Width*Angle-k.X*Angle+k.y)) // ну и собственно рисуем
Если сделать нормальный рисуночек в тетрадке то можно все сделать, через подобие треугольников...