Построить график функции: y=x+ln(x+1)+2

uses graphABC,events;
procedure KeyDown(Key: integer);
begin
closewindow;
end;
function F(x:real):real;
begin
F:=x+ln(x+1)+2;
end;
var x,max,min,mx,my:real;
    a,b,x0,y0,i:integer;
    s:string;
begin
setwindowcaption('График функции');
centerwindow;
a:=-1;//интервал по Х
b:=2;
x0:=windowwidth div 3;//начало координат
y0:=windowheight div 2;
mx:=(windowwidth-x0-30)/b;//масштаб по Х
my:=(y0-30)/6;//по Y функция вниз бесконечна, ограничимся 6
line(0,y0,windowwidth,y0);//оси
line(x0,0,x0,windowheight);
for i:=1 to 6 do//создаем оси координат
  begin
   line(x0+round(i*mx/2),y0-3,x0+round(i*mx/2),y0+3); //засечки на оси Х
   line(x0-round(i*mx/2),y0-3,x0-round(i*mx/2),y0+3);
  //подпись оси Х
   str(i/2:0:1,s);
   textout(x0+round(i*mx/2),y0+10,s);
   textout(x0-round(i*mx/2),y0+10,'-'+s);
   line(x0-3,y0+round(i*my),x0+3,y0+round(i*my)); //засечки на оси Y
   line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
   //подпись оси Y
   textout(x0-15,y0-round(i*my)-5,inttostr(i));
   textout(x0-20,y0+round(i*my)-5,inttostr(-i));
  end;
//центр
textout(x0+10,y0+10,'0');
//подписи концов осей
textout(windowwidth-20,y0-20,'X');
textout(x0+5,10, 'Y');
//график
setpencolor(clBlue);
x:=a+0.002;
moveto(x0+round(x*mx),y0-round(F(x)*my));
while x<=b do
 begin
  lineto(x0+round(x*mx),y0-round(F(x)*my));
  x:=x+0.001;
 end;
//текст
setfontsize(10);
textout(x0+50,0,'F(x)=x+ln(x+1)+2');
textout(x0+50,15,'ОДЗ x>-1');
textout(x0+50,30,'интервал [-1;2]');
textout(x0+50,45,'масштаб по оси Х 1 пиксел=0.005 ед.');
textout(x0+50,60,'масштаб по оси Y 1 пиксел=0.033 ед.');
setfontcolor(clRed);
setfontsize(12);
textout(x0+50,y0+150,'Для выхода нажмите любую клавишу');
OnKeyDown:=KeyDown;
end.