Вычислить наименьший положительный ненулевой корень

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Math, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const eps=0.00001;
 
var
  Form1: TForm1;
  var x,dx,y:real;
implementation
{$R *.dfm}
function f(x:double):double;
begin
f:=tan(x)-2*x;
end;
function Bisec(xn,xk:double):double; //функция уточнения корня методом бисекции
var c:double;
begin
repeat
c:=(xn+xk)/2;
if abs(f(c))<=eps
then xn:=c
else if F(xn)*F(c)<0
then xk:=c
else xn:=c;
until xk-xn<eps;
Bisec:=(xn+xk)/2;
end;
  procedure TForm1.Button1Click(Sender: TObject);
var dx,y:real;
    i:integer;
begin
x:=StrToInt(Edit1.Text);
dx:=0.1; //идем вперед с шагом 0.1
//x:=eps;//от eps
while f(x)*f(x+dx)>0 do
x:=x+dx;
y:=Bisec(x,x+dx)/5;//уточняем корень
edit2.text:=floattostr(y);
 
end;
 
end.