void __fastcall TFrameComboBoxTreeView::PaintBoxButtonPaint(TObject *Sender)
   {
   PaintBoxButton->Canvas->MoveTo(5,5);       // По идее в этом месте должна передвинутся
                                              // начало координат для рисования, но толи глюк то ли
                                              // я, чего не правильно делаю,
                                              // в PaintBoxButton->Canvas->PenPos = (5,5).
                                              // Хотя чертить начинает с координат(0,0)
                                              // соответсвенно и возвращается туды :((
   TPoint points[3];

   points[0].x = 5;
   points[0].y = 5;

   points[1].x = PaintBoxButton->Canvas->ClipRect.Width() - 5;
   points[1].y = 5;

   points[2].x = PaintBoxButton->Canvas->ClipRect.Width() / 2;
   points[2].y = PaintBoxButton->Canvas->ClipRect.Height() - 5;

   
   PaintBoxButton->Canvas->Polygon(points,3);
   }