Tunnel example for Delphi

procedure TForm1.TunnelClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc( LEADImage1.BitmapWidth /2 );
   ptCenter.y:= Trunc( LEADImage1.BitmapHeight /2 );
   LEADImage1.Tunnel( ptCenter, 0, Trunc(LEADImage1.BitmapHeight/2), Trunc(LEADImage1.BitmapWidth/2), 1, 0, 25, 100, 0, 2000, RGB(255,0,0), RGB(0,0,0), TUN_AXIS_WIDTH Or PLANE_FILL_CLR );
end;