Цикл: Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var x,x1,x2,S,h,a:extended;
 N,k:integer;
begin
  x1:=StrToFloat(Edit1.Text);
        Memo1.Lines.Add(' x1='+Edit1.Text);
     x2:=StrToFloat(Edit2.Text);
        Memo1.Lines.Add(' x2='+Edit2.Text);
     N:=StrToInt(Edit3.Text);
        Memo1.Lines.Add(' N='+Edit3.Text);
       h:=StrToFloat(Edit4.Text);
        Memo1.Lines.Add(' h='+Edit4.Text);
     x:=StrToFloat(Edit5.Text);
        Memo1.Lines.Add(' x='+Edit5.Text);
 
       
        h:=((x1-x2)/10);
        repeat
         s:=0;
 
        for  k:=1 to N do
        begin
        a:=((power(2*x,k))/k)+((power(2*x,k))/k);
        s:=s+a;
 
         Memo1.Lines.Add(' при x='+FloatToStrF(x,ffFixed,6,2)+'   сумма s ='
                                   +FloatToStrF(s,ffFixed,6,2));
          x:=x+h;
        until x>x2;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.text:='0.1';
  Edit2.text:='1';
  Edit3.text:='5';
    Edit4.text:='0,25';
    Edit5.text:='0,1';
 
  Memo1.Clear;
  Memo1.Lines.Add('Лаб.раб №3');
end;
 
 
end.

        repeat
  begin
 
 
         s:=0;
 
        for  k:=1 to N do
        begin
        a:=((power(2*x,k))/k)+((power(2*x,k))/k);
        s:=s+a;
 
         Memo1.Lines.Add(' ïðè x='+FloatToStrF(x,ffFixed,6,2)+'   ñóììà s ='
                                   +FloatToStrF(s,ffFixed,6,2));
          x:=x+h;
        until x>x2;
        end;
 
  end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const n=20;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function S(x:real):real;
var i:integer;
    t:real;
begin
result:=1; //начальное значение
t:=1;//нулевой член ряда
for i:=1 to n do //остальные
 begin
  t:=t*2*x/i;//домножаем на 2х и делим на I
  result:=result+t;//и прибавляем
 end;
end;
 
function Y(x:real):real;
begin
result:=exp(2*x);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,h,x:real;
    i:integer;
begin
xn:=0.1;
xk:=1;
h:=(xk-xn)/10;
StringGrid1.Cells[0,0]:='  X  ';
StringGrid1.Cells[1,0]:='  S(x)';
StringGrid1.Cells[2,0]:='  Y(x)';
StringGrid1.RowCount:=1;
x:=xn;
i:=0;
while x<=xk+h do
 begin
  i:=i+1;
  StringGrid1.RowCount:=i;
  StringGrid1.Cells[0,i]:=FloatToStrF(x,fffixed,5,2);
  StringGrid1.Cells[1,i]:=FloatToStrF(S(x),fffixed,6,3);
  StringGrid1.Cells[2,i]:=FloatToStrF(Y(x),fffixed,6,3);
  x:=x+h;
 end;
 
end;
 
end.