[lmikle]

1. Аналитически
Точка пересечения является когда y в обеих уравнениях принимает одно и то же значение при одинаковом X. соответсвенно, точкой перечесения будет результат решения системы уравнений

Y = 6X-7
Y = 3-4X

2. Прогаммно (эвристически).
В цикле по X тупо подставляешь в найденое тобой равеноство.
Типа:

Код:

var
  X Integer;
begin
  For X:= StrToInt(Edit1.Text) To strToInt(Edit2.Text) Do
   If (6*X-7) = (3 - 4*X) Then
     Begin
        ShowMessage('Пересечение найдено в точке X=' + IntToStr(X) + ', Y='+IntToStr(6*X-7));
        Exit;
     End;
  SowMessage('В указанном интервале [ + Edit1.Text + '..' + Edit2.Text + '] пересечение не найдено');
end;

Edit1 и Edit2 - границы диапазона для поиска, воодятся пользователем. Предполагают ввод только целых чисел.