Провести оси координат, выполнить градуировку осей и нарисовать график функции

procedure TForm1.FormActivate(Sender: TObject);
const
  step = 0.01;
 
var
  i: integer;
  y,x: real;
begin
  Series1.Clear;
  x:=-6;
  while x<6 do
    begin
      y:=x*x*sin(x*180/Pi);
      Series1.AddXY(x,y);
      x:=x+step;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var xc,yc,w,h,i:integer;
    mx,my,x,y:real;
begin
xc:=Image1.Width div 2;
yc:= Image1.Height div 2;
w:=xc*2;
h:=yc*2;
mx:=(w-50)/12;
my:=(h-40)/60;
with Image1.Canvas do
 begin
  Brush.Color:=clWhite;
  Pen.Color:=clBlack;
  MoveTo(0,yc);//линии осей
  LineTo(w,yc);
  MoveTo(xc,0);
  LineTo(xc,h);
  textout(w-20,yc-20,'X');//подпись концов
  textout(xc+10,10,'Y');
  textout(xc+10,yc+10,'0');
  for i:=1 to 6 do
   begin
    MoveTo(xc+round(i*mx),yc-3); LineTo(xc+round(i*mx),yc+3);//засечки на оси Х
    MoveTo(xc-round(i*mx),yc-3); LineTo(xc-round(i*mx),yc+3);
    textout(xc+round(i*mx),yc+10,Inttostr(i));//подписи
    textout(xc-round(i*mx),yc+10,Inttostr(-i));
    MoveTo(xc+3,yc-round(i*my*10)); LineTo(xc-3,yc-round(i*my*10));//засечки по У
    MoveTo(xc+3,yc+round(i*my*10)); LineTo(xc-3,yc+round(i*my*10));
    textout(xc-30,yc-round(i*my*10),Inttostr(10*i));//подписи
    textout(xc-30,yc+round(i*my*10),Inttostr(-10*i));
   end;
 x:=-6;
 while x<=6 do
  begin
   y:=x*x*sin(x);
   pixels[xc+round(x*mx),yc-round(y*my)]:=clred;
   x:=x+0.001;
  end;
 end;
end;