Выдает неправильный ответ - метод половинного деления. Срочно!!!

[cyx]

Неправильно находит корень. Где была допущена ошибка? помогите пожалуйста, срочно!!!

function F(x:real):real;
begin
F:=m*x*x+s*x+d;
end;

function F1(x:real):real;
begin
F1:=k*x*x*x+m*x*x+s*x+d;
end;
procedure TForm4.Button2Click(Sender: TObject);
var
//a - левая граница интервала,b - правая граница интервала
// x - корень уравнения,eps - точность,count - счётчик (считает сколько раз происходит вычисление в цикле)
a,b,x,eps:real;
count:integer;
begin
count:=0;
k:=StrToInt(edit4.Text);
m:=StrToInt(edit5.Text);
s:=StrToInt(edit6.Text);
d:=StrToInt(edit7.Text);
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
eps:=StrToFloat(Edit3.Text);
if RadioButton1.checked then MyFunction:=F else
if RadioButton2.checked then MyFunction:=F1;
 repeat
 x:=(a+b)/2;
    if MyFunction(a)*MyFunction(x)>0 then a:=x else b:=x;
    inc(count);
  until b-a<eps;
  memo1.text:='Результат - '+FloatToStr(x);
  label3.caption:='Количество этапов вычислений - '+IntToStr(count);

end;