Операторы в Delphi

[neomaximus]

Вот само задание:
необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xn-xk)/10. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).

Вот табличка:

Вот форма:


Все ли тут правильно?

Вот что я написал:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPStyleActnCtrls, ActnList, ActnMan, ComCtrls,Math,
XPMan, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Panel1: TPanel;
Label5: TLabel;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='0,1';
Edit2.text:='1';
Edit3.text:='16';
Edit4.text:='0,09';
Memo1.Clear;
Memo1.Lines.Add('Выполнил ст.гр.ЭВМк06-1 Мелихов М.А.');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2,x,h,a,s,g,j:extended;
N,k,c:integer;
begin
x1:=StrToFloat(Edit4.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);
c:=-1;
x:=x1;
repeat
a:=1;
S:=0;
j:=0;
for k:=1 to N do
begin
s:=s+a; //числовой ряд
j:=j+2;
a:=c*a*x/j;
g:=Exp(x)-Exp(-x)/2;
end;
Memo1.Lines.Add('при x='+FloatToStrF(x,ffFixed,6,2)+' сумма ='
+FloatToStrF(s,ffFixed,6,2)+' Sin(x)='
+FloatToStrF(g,ffFixed,6,2));
x:=x+h;
until x>x2;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit2.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit3.Clear;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit4.Clear;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Memo1.Clear;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Close;
end;

end.

[Гриха]

А в чем сомневаешься?
если есть ошибка - компилятор скажет - пиши и попробуем решить
если по вычислению то не знаю, не стал вникать -много формул разных...а времени нету