Работа с графикой в Delphi

Работа с графикой в Delphi 

посилання http://old.kpfu.ru/student/t/delphibook/Chapter%2010/1.htm

 Image2.Canvas.MoveTo(1,(image2.Height div 2));
  x:=-10;
  x0:=100;
  while x<=image2.width do
    begin
     y:=x*x;
     //yy:=Round(y);
     image2.Canvas.LineTo(2*(x+x0),y);
     x:=x+1;
     //sleep(10);
     Application.ProcessMessages;
    end;