Tunnel example for C++ Builder

void __fastcall TForm1::TunnelClick(TObject *Sender)
{
   TPoint ptCenter;

   ptCenter.x= (int)( LEADImage1->BitmapWidth /2 );
   ptCenter.y= (int)( LEADImage1->BitmapHeight /2 );
   LEADImage1->Tunnel( ptCenter, 0, (int)(LEADImage1->BitmapHeight/2), (int)(LEADImage1->BitmapWidth/2), 1, 0, 25, 100, 0, 2000, RGB(255,0,0), RGB(0,0,0), TUN_AXIS_WIDTH | PLANE_FILL_CLR );
}