если вопрос в заветной формуле, то используя
уравнения прямой, можно получить, что в цикле от Х1 до Х2 (координаты Х соответсвенно начала и конца линии), ищем Y3(X3), который равен:
Код:
Y3:=Y1+((X3-X1)*(Y2-Y1))/(X2-X1);
(X1,Y1) и (X2,Y2) - соответственно координаты точек начала и конца прямой, Y3 - искомая координата точки для использования в операторе
Код:
Image1.Canvas.Pixels[x3,y3] := clBlack;
а Х3 изменяется в цикле, вот и все, должно работать