объяните код (delphi)

[Blue Sky]

программа рисует двуполостный гиперболоид
нашла в интернете,ничего не поняла
очень нужно
если не трудно, то буквально построчно, пожалуйста

 procedure Zol(a,b,c:integer; dx,dy:real);
var x0,y0,x1,y1,x2,y2,x3,y3:integer; x,y,z,z1:real;
begin
  with Form1.Image1 do
   begin
x:=-100;
     while x<=100 do
      begin
        y:=-100;
        while y<=100 do
         begin

           if ((x*x)/(a*a)+(y*y)/(b*b)+1)*c*c>=0 then
           z:=sqrt(((x*x)/(a*a)+(y*y)/(b*b)+1)*c*c);
           z1:=-z;
           x1:=round(x0+x-y*sin(pi/4));
           y1:=round(y0+y*sin(pi/4)-z);
           if y<>-100 then Canvas.MoveTo(x2,y2) else Canvas.MoveTo(x1,y1);
         Canvas.LineTo(x1,y1);
           x2:=x1;
          y2:=y1;
           y1:=round(y0+y*sin(pi/4)-z1);
           if y<>-100 then Canvas.MoveTo(x3,y3) else Canvas.MoveTo(x1,y1);
           Canvas.LineTo(x2,y1);
           x3:=x1;
           y3:=y1;
           y:=y+dy;
         end;

        x:=x+dx;
      end;
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var dy,dx:real; a,b,c:integer;
begin
  Form1.Image1.Canvas.Rectangle(0,0,Form1.Image1.width,Form1.Image1.Height);
  a:=spinedit1.value;
  b:=spinedit2.value;
  c:=spinedit3.value;
  dx:=strtofloat(Edit1.Text);
  dy:=strtofloat(Edit2.Text);
  Zol(a,b,c,dx,dy);
end;

[Косюра]

ух ты. Круто. Ща проверю)) Эх, где же была эта прога, когда я ангем то сдавала... Эээх...

[Blue Sky]

неужели никто не может помочь?