Построение спирали на Delphi

[loonymen]

Люди добрые,программисты мудрые, помогите пожалуйста!!!!
Понятие не имею как строить логорифмическую спираль в Delphi.Сам я полный ламер в программировании(((.Токо начал изучать и такую лабу дали в универе.Три недели уже бошку ломаю.
Заранее всем огромное спасибо за любую информацию.

[Stilet]

Вот можно так:

unit Unit1;

interface

uses math,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TFastLineSeries;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var x,y,r,b,t:double;
begin
r:=100;
Series1.XValues.Order:=loNone;
t:=2;while t<=1000 do begin
  Series1.AddXY(r*cos(t),r*sin(t));
  r:=r*1.2;
t:=t+1;
end;
end;

end.

[Fantom.as]

Спасибо, попробую