Memo и уравнения

Function F1(var X: real): real;
 
         begin
             F1:=exp(-X)+sqr(X)-2;
         end;
 
 
Procedure U1(A, B, Eps:real; Km:integer; var Str:integer; var C:real);
 
 var i:integer;
   W, FA, FC :real;
 
    begin
      FA:=F1(A);
      for I := 1 to Km do
        begin
          C:=(B+A)/2;
          FC:=F1(C);
          W:=Abs(FC);
          if W>Eps then
           if FA*FC>0 then A:=C
                      else B:=C
            else
             begin
               Str:=1;
               Exit
             end;
             Str:=0;
        end;
    end;

a:=strtofloat(memo1.Lines[0]);
b:=strtofloat(memo1.Lines[1]);
eps:=strtofloat(memo1.Lines[2]);
km:=strtoint(memo1.Lines[3]);

procedure TForm1.N2Click(Sender: TObject);
begin
 
    a:=strtofloat(memo1.Lines[0]);
    b:=strtofloat(memo1.Lines[1]);
    eps:=strtofloat(memo1.Lines[2]);
    km:=strtoint(memo1.Lines[3]);
 
    U1 (A, B, Eps, Km, Str, C);
 
    Memo1.Lines.Add('Входные:');
    Memo1.Lines.Add('A = ' +FloatToStr(A));
    Memo1.Lines.Add('B = ' +FloatToStr(B));
    Memo1.Lines.Add('Eps = ' +FloatToStr(Eps));
    Memo1.Lines.Add('Km = ' +FloatToStr(Km));
 
    if Str=0 then
   begin
     Label1.Caption:='Решение не найдено' end
     else Label1.Caption:='Корень = '+FloatToStr(C);
     Label2.Caption:='Невязка = ' +FloatToStr (F1(C));
   end;