Составлени графика функции от интеграла

[vitart]

Надо построить график функции вот отсюда http://mathworld.wolfram.com/Modifie...econdKind.html формула 10,11...
Для простого интеграла график построить могу вот код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s,x,y,h, g: double;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=0;
h:=0.1;
x:=0;
while(x<=1) do
begin
y:=ln(x+1);
s:=s+y*h;
x:=x+h;
end;
Label1.Caption:=FloatToStr(s);
x:=0;
g:=0.001;
while (x<=1) do
begin
y:=ln(x+1);
x:=x+g;
Series1.AddXY(x,y,' ',clRed);
end;

x:=0;
while (x<=1) do
begin
Series2.AddXY(x,0,' ',clBlue);
y:=ln(x+1);
Series2.AddXY(x,y,' ',clBlue);
x:=x+h;
Series2.AddXY(x,y,' ',clBlue);
end;

end;

end.

А для этого не получается напиши те свои предложения что можно сделать?