Запрограммировать гиперболическую спираль

[Ducase]

Нужно запрограммировать гиперболическую спираль, а вернее узор состоящий из нескольких спиралей. Рисовать нужно в paintboxID.canvas. Если пройти по ссылке выше, можно увидеть математическую формулу данной функции. Насколько я понимаю нужно запихнуть в цикл.

Paintbox1.Canvas.MoveTo(В нужную мне, координату);
While i<10 do
  begin
    Paintbox1.Canvas.Lineto();
    i:=i+1;
  end;

Я не знаю как записать параметры метода lineto() помогите новичку пожалуйста.

[Stilet]

var a,y,x,t:double;cx,cy:integer;
begin
cx:=Width div 2; cy:=100;
with Canvas do begin
 MoveTo(cx,cy);a:=500;
 t:=pi/100;while t<=(2*pi) do begin
  x:=a*(cos(t)/t);
  y:=a*(sin(t)/t);
  LineTo(round(cx+x),round(cy+y));
  t:=t+pi/100;
 end;
end;
end;

Этот код можно поместить в событие OnPaint твоего компонента PaintBox

[Ducase]

Большое спасибо, только у меня вопрос:
что делает

with Canvas do
begin
операторы
end;

[SERG1980]

это равноценно такой записи

Canvas.MoveTo.....
Canvas.LineTo...

чтобы слово Canvas каждый раз не писать,
with Canvas do = с канвой сделать