Прорисовка TreeView в Canvas

[Manson_0]

Добрый день!
Прошу помощи. Нужно представить дерево данных в графическом виде, через канвас.
Что-то подобное этому:
Само дерево написано и работает верно. Проблема в том, что с канвасом ранее не работал, пару дней пытаюсь заставить рисовать дерево, но, увы, ничего не выходит...

Элементы в дереве задаются через Random.

procedure TBinaryTree.N6Click(Sender: TObject);
var i,k:Integer; n:String;
begin
   Randomize;
   n:='';
   if not InputQuery('Random', 'Number of elements',n) then exit;
for i:=1 to abs(StrToInt(n)) do
   begin
     k:=Random(100);
     TreeView1.Items.Add(nil, IntToStr(k));
   end;
end;

procedure TBinaryTree.N21Click(Sender: TObject);
var i,k:Integer; n:String;
begin
   Randomize;
   n:='';
   if not InputQuery('Random', 'Number of elements',n) then exit;
for i:=1 to abs(StrToInt(n)) do
   begin
     k:=Random(100);
     TreeView1.Items.AddChild(TreeView1.Selected, IntToStr(k));
   end;
end;

[Баламут]

Что-то я так и не понял причем здесь канва. Но если дело действительно только в этом, то примерно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Circle(50, 50, 10);
  Circle(100, 100, 10);
end;

procedure TForm1.Circle(x, y, r: integer);
var
  x1, y1, x2, y2: integer;
begin
  x1 := x - r;
  x2 := x + r;

  y1 := y - r;
  y2 := y + r;

  Form1.Canvas.Ellipse(x1, y1, x2, y2);
end;