如何识别直线？

Question

各位大虾！
现在我绘制了一条直线
procedure TForm1.FormPaint(Sender;TObject)
begin
  Cancas.MoveTo(20,100)；
  Cancas.LineTo(100,20)；
end；
怎样在同一窗体下进行对这条直线进行识别？
先谢谢了！

Answer 1

多谢这么多位大虾的指教！
回答chijingde的问题，希望得到更多的指点
套准标志是米字型的，分别是四条直线
X=0;  Y=0;  X=Y;  X=-Y  ，相交于点（0，0）
颜色分别为c，m，y，k就是黄，品红，蓝，黑
四色套印，就是先黄色就有一条X=0的黄色直线
再上一层品红就有一条品红的直线X=Y
蓝的就Y=0的蓝色直线
黑的就X=-Y的黑色直线
最后四条直线要在（0，0）这一点相交
直线的长度可以随便定，不过每一条直线长度一致
套准就是确保这四条直线的斜率，相交点不变
若出现偏差，系统要发出信号

Answer 2

谢谢楼上的主意，但是在delphi里面具体是怎样实现啊？
可以再指点吗？
谢谢！

Answer 3

操作
canvas 在一定区域数点啊清查看canvascanvas.pixel