Графика, Найти координаты пересечения прямых Опции

[Rudolf]

Допустим я рисую на канве Image две прямые методом moveto lineto

Код

begin
   With Image1.Canvas do begin  
   MoveTo(Image1.Width div 2,0);
   LineTo(Image1.Width div 2,Image1.Height);
   MoveTo(0,Image1.Height div 2 );
   LineTo(Image1.Width,Image1.Height div 2);
end;

Существует ли функция, которая позволяет найти координаты пересечения этих прямых в пикселях относительно Image1?

[Rudolf]

Спасибо