непонятная ошибка какая-то...

[vedro-compota]

Здравия желаю всем чтущим этот пост! ))
Не могу определить в чём причина ошибки. что-то с указателями. ((
вот прикладываю архив.
Прошу помочь ))
Заранее спасибо ))

unit risdereva;

interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,sozdereva, holst ;
procedure risuemego ( x,y,xkop,ykop,leftx,lefty,
rightx,righty,radius:integer; uk1,uk1kop: pelement ) ;
implementation
procedure risuemego ( x,y,xkop,ykop,leftx,lefty,
rightx,righty,radius:integer; uk1,uk1kop: pelement ) ;
begin
  if uk1<>nil then
  begin
    xkop:=x;
    ykop:=y;
    uk1kop:=uk1;

    form2.canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
    form2.Canvas.Pen.color:=clblack;
    form2.canvas.Pen.Style:=psSolid;
    form2.Canvas.Brush.Color:=clWhite;

    form2.Canvas.TextOut(x-10,y-10, uk1^.infa);
     if uk1^.left<>nil then
    begin
      form2.Canvas.Pen.color:=clblack;
      Form2.canvas.Pen.Style:=psSolid;
      form2.canvas.MoveTo(x-17,y+17);
      form2.canvas.LineTo(x-17+leftx,y+17+lefty);
      x:= x-17+leftx-17;
      y:= y+17+lefty+17;
      uk1:=uk1^.left;
      risuemego (x,y,xkop,ykop,leftx,lefty,
      rightx,righty,radius, uk1,uk1kop ) ;
    end;
    if uk1kop^.right<>nil then
    begin
      form2.Canvas.Pen.color:=clblack;
      form2.Canvas.Pen.Style:=psSolid;
      form2.Canvas.MoveTo(xkop+17,ykop+17);
      form2.Canvas.LineTo(xkop+17+rightx,ykop+17+righty);
      x:= xkop+17+rightx+17;
      y:= ykop+17+righty+17;
      uk1:=uk1kop^.right;
      risuemego (x,y,xkop,ykop,leftx,lefty,
      rightx,righty,radius, uk1,uk1kop ) ;
    end;
    
  end;

end;

end.

я выделил строку на которую показывает компилятор, но uk1^.left инициализирован, не пойму почему ошибка.

[vedro-compota]

всё )) разобрался)) если кому интересно - здесь правильно рисует ( ну только накладываются некоторые узлы, но это изменяемо ))