Не работает

function Checking(var StrEps: String; var StrLastX: String): Boolean;
var
    IsCorrect: Boolean;
begin

    IsCorrect := True;
    try
        StrToFloat(StrEps);
    except
        IsCorrect := False;
    end;

    try
        StrToInt(StrLastX);
    except
        IsCorrect := False;
    end;

    if (Length(StrLastX) > 1) or (StrToFloat(StrEps) < 0.00000001) or (StrToFloat(StrEps) > 0.001)  then
        IsCorrect := False;

    Checking := IsCorrect;
end;

procedure TForm1.ButtonSearchClick(Sender: TObject);
Var
    StrEps, StrLastX: String;
    X, lastX, Eps: Double;
begin
    StrEps := EditEps.Text;
    StrLastX := EditLastX.Text;
    Eps := StrToFloat(EditEps.Text);
    lastX := StrToFloat(EditLastX.Text);
    X := 0;
    if Checking(StrEps, StrLastX) then
    begin
        While(abs(lastX - X) > Eps) do
        Begin
            lastX := X;
            X := exp(lastX) / 10;
        End;
        Memo1.Lines[0] := FloatToStr(X);
        N3.Enabled := True;
    end
    else
    begin
        MessageDlg('Проверьте поля ввода, это должны быть числа из указанного диапазона!', mtError, [mbOK], 0);
        EditEps.Clear;
        EditLastX.Clear;
    end;

end;