Hola sultan, lo que tienes que hacer es crearte los ToolButtons y asignarle como padre a tu Toolbar.
Código Delphi
[-]
ToolBut : TToolButton;
begin
for i:=0 to Length(LineaSeleccionada) do
begin
ToolBut := TToolButton.Create(Self);
ToolBut.Parent := ToolBar1;
ToolBut.Name := 'ToolButon'+IntToStr(i);
end;
Saluditos