Создать программу рисования в форме графиков функций

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
 int i,amp,x1,y1,x2,y2,imax,t;
 double func, x;
 imax=100;//число точек в периоде
 t=3;//число периодов
 amp=70;      //амплитуда
 x1=1;//начало координат
 x2=10;
 y1=10+amp;
 y2=y1+2*amp+40;
 //Рисуем график с Pixels
 Canvas->TextOut(0,0,"Рисуем график с Pixels");
 Canvas->MoveTo(x1,y1);       //рисуем ось X
 Canvas->LineTo(x1+imax*t,y1);
 Canvas->MoveTo(x1,y1+amp); //рисуем ось Y
 Canvas->LineTo(x1,y1-amp);
 for (i=1;i<=imax*t;i++)      //рисуем график
 {
 func=log(x/imax*i);
 Canvas->Pixels[x1+i][y1+floor(func)]=clBlack;
 }

  int x = ClientWidth, y = ClientHeight, i;
  Image1->Canvas->TextOut(x/6, 0, "Рисуем график с Pixels");
  Image1->Canvas->TextOut(x/6, y/2, "Рисуем график с LineTo");
  Image1->Canvas->Pen->Color = clRed;
  Image1->Canvas->MoveTo(0, y/2);
  Image1->Canvas->LineTo(x/2, y/2);
  Image1->Canvas->MoveTo(x/2, 0);
  Image1->Canvas->LineTo(x/2, y);
 
  const n = 10;
  Image1->Canvas->Pen->Color = clBlack;
  for (i = 0; i < 2; i++)
  {
    Image1->Canvas->MoveTo(n, y/2*(.5+i));
    Image1->Canvas->LineTo(x/2-n, y/2*(.5+i));
    Image1->Canvas->MoveTo(n, y/2*i+n);
    Image1->Canvas->LineTo(n, y/2*(1+i)-n);
  }
 
  double j;
  for (j = 0.1; j <= x/2 - 2*n; j += 0.01)
    Image1->Canvas->Pixels[j+n][y/4+4*n-2*n*log(j)] = clBlue;
 
  j = 0.1;
  Image1->Canvas->Pen->Color = clGreen;
  Image1->Canvas->MoveTo(j+n, 3*y/4+4*n-2*n*log(j));
  for (double j = 0.1; j <= x/2 - 2*n; j += 0.01)
    Image1->Canvas->LineTo(j+n, 3*y/4+4*n-2*n*log(j));