Фрактальные множества

[Оля1185242]

Помогите с реализацией фрактального множества Жюлиа. Очень надо
Есть код, но выдает ошибку. Буду весьма благодарна))

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
  procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 function Julia(x0,y0: real): TColor;
var
    a,b,x,y,x2,y2,xy: real;
    r:real;
    k: integer;
begin
    r:=1;
    a:=-0.55; b:=-0.55;
    x:=x0; y:=y0;
    k:=100;
    while (k>0)and(r<4) do
    begin
        x2:=x*x;
        y2:=y*y;
        xy:=x*y;
        x:=x2-y2+a;
        y:=2*xy+b;
        r:=x2+y2;
        dec(k)
    end;
    k:=round((k/100)*255);
    result:=RGB(k,k,k);
end; 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1 do
 begin
  clientwidth:=500;
  clientheight:=500;
  position:=poScreenCenter;
 end; 
end;
procedure TForm1.FormPaint(Sender: TObject);
 var
    x_min,y_min,x_max,y_max,hx,hy,x,y: real;
    i,j,n: integer;
    color: TColor;
begin
    x_min:=-1.5; x_max:=2;
    y_min:=-1.5; y_max:=1.5;
    n:=500;
    y:=y_min;
    hx:=(x_max-x_min)/n;
    hy:=(y_max-y_min)/n;
    for j:=0 to n do
    begin
        x:=x_min;
        for i:=0 to n do
        begin
          color:=Julia(x,y);
            Form1.Canvas.Pixels[i,j]:=color;
            x:=x+hx;
        end;
        y:=y+hy;
    end;
end;
end.