problem z gwiazda kocha

pisze wlasnie program rysujacy gwiazde kocha, czy ktos moglby to uruchomic i ewentualnie powiedziec co jest nie tak?
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
katakt,b:real;
x,y,r:integer;

implementation

{$R *.dfm}

procedure obrot(kat:real);
begin katakt:=katakt+kat;
end;

procedure rysuj(bok:real);
var x,y:integer;
begin
x:=round(x+bcos(kataktpi/180));
y:=round(y+bsin(kataktpi/180));
form1.Canvas.LineTo(x,y);
end;

procedure element(rzad:integer;bok:real);
begin
if r=0 then rysuj(b) else
begin
element(rzad-1,bok/3);
obrot(60);
element(r-1,b/3);
obrot(-180);
element(r-1,b/3);
obrot(120);
element(r-1,b/3)
end;
end;

procedure platek(rzad:integer;bok:real);
var i:integer;
begin
form1.Canvas.moveto(x,y);
katakt:=60*pi/180;
for i:=1 to 3 do
begin
element(rzad,bok);
obrot(-120);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{$Q-}
b:=5;
r:=1;
x:=300;
y:=300;
platek(r,b);
end;

end.