a:=strtofloat(Form1.edit2.text);
b:=strtofloat(Form1.edit3.text);
n:=strtoint(Form1.edit4.text);
Chart1LineSeries1.Clear;
n:=0;
for i:=1 to 20 do
begin
n:=n+10; - ?
x:=a; s:=0;
h:=(b-a)/n;
for i:=0 to n-1 do begin
x:=x+h;
y:=(x*ln(x))*(x*ln(x));
s:=s+y*h;
end;