Как программно создать кнопку на панели инструментов, которая будет действовать как гиперссылка?

Для того, чтобы создать кнопку - гиперссылку, можно использовать нижеприведённый код, который желательно разместить в стандартном модуле.

Реализовать кнопку (TButton) на форме. По нажатию на кнопку создавать кнопку правее нажатой

Реализовать кнопку (TButton) на форме. По нажатию на кнопку создавать кнопку правее нажатой и т.д. В модуле должна быть реализована только одна процедура procedure Button1Click(Sender: TObject)