класс для работы с деревьями

[CodeNOT]

добрый времени суток, извините, может у кого есть класс для обхода двоичного дерева поиска с выводом на форму, допустим на компонент TImage, я просто с графикой вообще не работал, не могу понять, как организовать мне прорисовку всех узловых листов и соединить их между собой с помощью канваса!

[CodeNOT]

у меня ничего хорошего не вышло(((
вот собственно сама процедура:

 void Walk_(int width,int height,TForm1 * Form1,tree root)
 {
       if(root!=NIL)
       {
                Walk_(width,height-40,Form1,root->right);
                if(root->color==0)
                {
                        Form1->Image1->Canvas->Brush->Color=clBlack;
                }
                else
                {
                  Form1->Image1->Canvas->Brush->Color=clRed;
                }
                Form1->Image1->Canvas->Ellipse(width/2-20,height,width/2-(height-width),(height-width));
                Form1->Image1->Canvas->TextOutA(width/2,(height-width),IntToStr(root->data));
                Walk_(width,height-40,Form1,root->left);
       }
 }

вот вызов:

Walk_(Form1->Image1->Width,Form1->Image1->Height,Form1,root);

Рисуется хмхмх, как кучка ********