Цыклоида

[Andrey770]

procedure cukloida;
var xc,yc,w,h,i:integer;
    z,a,f,r,mx,my,x,y:real;
begin
xc:=form1.Image1.Width div 2;
yc:=form1.Image1.ClientHeight div 2;
w:=(xc-10);
h:=(yc-10);
mx:=(w-10)/5;// ñ³òêà, ïðÿì³ ïî âåðòèêàë³
my:=(h-10)/5;// ñ³òêà, ïðÿì³ ïî ãîðèçîíòàë³

 begin
 a:=7;
 f:=0.1;
 while f<=1*pi do
  begin
   r:=5;
   x:=r*f-r*sin(f);
   y:=r-r*cos(f);
   z:=r*arccos((r-y)/r)-sqrt(2*r*y-y*y);
   form1.Image1.canvas.pixels[xc+round(z*mx),yc-round(z*my)]:=clBlack;
   f:=f+0.001;
  end;
 end;

Не могу разобраться с цыклоидой. Помогите, ув. программисты.
Вот не уверен с этой строчкой, ещё.

form1.Image1.canvas.pixels[xc+round(z*mx),yc-round(z*my)]:=clBlack;

Может у кого то есть пример, сбросьте пожалуйста.