Не могу найти ошибку в программе

procedure TForm1.Button1Click(Sender: TObject); 
var x,s,n,sum,chislit,znamen:real; 
k,i,f:integer; 
begin 
x:=strtofloat(Edit1.Text); 
k:=1; 
sum:=0; 
repeat 
 
s:=1; 
for i:=1 to k do 
s:=s*x; 
chislit:=s; 
 
f:=1; 
for i:=1 to k do 
f:=f*i; 
znamen:=2*f; 
 
n:=chislit/znamen; 
k:=k+1; 
sum:=sum+n; 
until n<0.000001; 
edit2.text:=floattostr(sum); 
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,s,sum:real;
    k:integer;
begin
x:=strtofloat(Edit1.Text);
k:=1;
sum:=x/2;
s:=x/2;
repeat
k:=k+1;
s:=s*x/k;
sum:=sum+s/2;
until s/2<0.000001;
edit2.text:=floattostr(sum);
end;

k:=1;
sum:=x/2;//сумма при к=1
s:=x;//первый член ряда, не деленный на 2
repeat
k:=k+1;
s:=s*x/k;//следующий домножаем на х и делим на к=x^k/k!
sum:=sum+s/2;//делим на 2 и прибавляем
until s/2<0.000001;//s/2 меньше точности=конец