Итерационные циклы

{$R *.dfm}
function F(x:double):double;
begin
F:=(x+1)*exp(x)+(x-1)*exp(-x);
end;
function S(x,e:double):double;
var k:integer;
    t,y:double;
begin
k:=1;
t:=x;
y:=4*t;
while abs(F(x)-y)>e do
 begin
  k:=k+1;
  t:=t*x*x/(2*k-2)/(2*k-1);
  y:=y+4*k*t;
 end;
S:=y;
end;
//установим моноширный шрифт и скролл в Мемо
procedure TForm1.FormCreate(Sender: TObject);
begin
Font.Style:=[fsBold];
Font.Name:='Courier New';
Font.Size:=10;
Memo1.ScrollBars:=ssVertical;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,e,x:real;
    i:integer;
    str1,str2,str3,str4,str5: string;
begin
val(Edit1.Text,a,i);
if i<>0 then
 begin
  ShowMessage('Неверно введено начало интервала а');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,b,i);
if (i<>0)or(b<=a) then
 begin
  ShowMessage('Неверно введен конец интервала b');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
val(Edit3.Text,h,i);
if (i<>0)or(h>=b-a) then
 begin
  ShowMessage('Неверно введен шаг табуляции h');
  Edit3.Clear;
  Edit3.SetFocus;
  exit;
 end;
val(Edit4.Text,e,i);
if (i<>0)or(e<=0)or(e>=1) then
 begin
  ShowMessage('Неверно введена точность e');
  Edit4.Clear;
  Edit4.SetFocus;
  exit;
 end;
x:=a;
i:=0;
while x<=b+h/2 do
 begin
  inc(i);
  Str(i:3,str1);
  Str(x:9:2,str2);
  Str(S(x,e):22:5,str3);
  Str(F(x):32:5,str4);
  Str(abs(F(x)-S(x,e)):27:5,str5);
  Memo1.Lines.Add(str1+str2+str3+str4+str5);
  x:=x+h;
 end;
 
end;