рисую дерево канвой

 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double pi=3.1415926535;
int flag=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        //Image1->Canvas->MoveTo(100,200);
        //Image1->Canvas->LineTo(100,150);
 
        BETKA(100,200,90,-pi/2);
        BETKA(100,200,90,pi/2);
}
//---------------------------------------------------------------------------
void TForm1::BETKA(int x,int y, int L, double a)
{
       double b=pi/4,m=0.5;
       int x0,y0;
       if(L<5 || L>100) flag=1;
 
       if (flag==0)
       {
       Image1->Canvas->MoveTo(x,y);
       x0=x;  y0=y;
 
       x=x+(L*cos(a));
       y=y+(L*sin(a));
 
       Image1->Canvas->LineTo(x,y);
 
       BETKA(x,y,L*m,a-b/2);  // первый "отросток" - отклонение на -b/2
 
       BETKA(x,y,L*m,a+b/2);  //второй "отросток" - отклонение на +b/2
 
       Image1->Canvas->MoveTo(x0,y0);
 
 
       }
}
//----------------------------------------------

void BETKA(int,int, int, double);

int flag=0;
if(L<5 || L>100) flag=1;