Составить проект, рисующий график функции

function f(x:double):double;
begin
f:=sqrt(abs(sin(x)-cos(x)));
end;
procedure TForm1.FormPaint(Sender: TObject);
var xc,yc,w,h,i:integer;
    xn,xk,max,mx,my,x:double;
begin
//ширина и высота графического окна
w:=Form1.ClientWidth;
h:=Form1.ClientHeight;
//начало координат
xc:=w div 2;
yc:=h div 2;
//интервал по Х
xn:=-2*pi;
xk:=2*pi;
//макс для масштаба по оси Y
x:=xn;
max:=f(x);
while x<=xk do
 begin
  if f(x)>max then max:=f(x);
  x:=x+0.1;
 end;
//масштабы
mx:=(xc-50)/xk;
my:=(yc-50)/max;
//рисуем график
with Form1.Canvas do
 begin
  MoveTo(0,yc);
  LineTo(w,yc);
  MoveTo(xc,0);
  LineTo(xc,h);
  textout(w-20,yc-20,'X');
  textout(xc+15,10,'Y');
  textout(xc+10,yc+10,'0');
  for i:=1 to 7 do
   begin
    MoveTo(xc+round(i*mx),yc-3); LineTo(xc+round(i*mx),yc+3);
    textout(xc+round(i*mx),yc+10,Inttostr(i));
    MoveTo(xc-round(i*mx),yc-3); LineTo(xc-round(i*mx),yc+3);
    textout(xc-round(i*mx),yc+10,Inttostr(-i));
    MoveTo(xc+3,yc-round(i*my/5)); LineTo(xc-3,yc-round(i*my/5));
    textout(xc-30,yc-round(i*my/5),format('%.1f',[i/5]));
    MoveTo(xc+3,yc+round(i*my/5)); LineTo(xc-3,yc+round(i*my/5));
    textout(xc-30,yc+round(i*my/5),format('%.1f',[-i/5]));
   end;
 x:=xn;
 while x<=xk do
  begin
   pixels[xc+round(x*mx),yc-round(F(x)*my)]:=clred;
   x:=x+0.001;
  end;
 end;
Form1.Caption:='График функции Y=sqrt(|sinx-cosx|) на инт. [-2pi;2pi]';
 
end;