Delphi - dibujar lineas

Estoy haciendo una simulación y necesito unir a través de lineas varios botones de un formulario. ¿Como puedo trazar dichas líneas?

Gracias.

Puedes utilizar los métodos MoveTo y LineTo de la propiedad Canvas del formulario dentro del evento OnPaint.
También puedes utilizar varios componentes TBevel de la paleta Additional, asignándole a la propiedad Shape el valor bsBottomLine, bsTopLine, bsRightLine o bsLeftLine según corresponda