[Drozh]

Для таких уравнений все просто. Их можно представить в виде y = a*x+b (y = 6*x + (-7)) и y = c*x+d (y = (-4)*x + 3) тогда все просто: кидаешь на форму 6 Эдитов и 1 Кнопку, в свойстве OnClick кнопки пишешь

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 a, b, c, d, X, Y: Double;
begin
 a := StrToFloat(Edit1.Text);
 b := StrToFloat(Edit2.Text);
 c := StrToFloat(Edit3.Text);
 d := StrToFloat(Edit4.Text);

 X := (d-b)/(a-c);
 Y := a*X + b;

 Edit5.Text := FloatToStr(X);
 Edit6.Text := FloatToStr(Y);
end;