>>580
試してないが
これじゃだめなのか？
helpみれ
procedure AddButtons(ToolBar: TToolBar;
Const ButtonCaptions: array of String);
var
I: Integer;
begin
for I := 0 to High(ButtonCaptions) do
begin
with TToolButton.Create(ToolBar) do
begin
Parent := ToolBar;
Caption := ButtonCaptions[I];
if (ButtonCaptions[I] = '|') then
Style := tbsSeparator

else
Style := tbsButton;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
ToolBar: TToolBar;
begin
ToolBar := TToolBar.Create(Self);
ToolBar.Parent := Self;
AddButtons(ToolBar, ['新規作成', '保存', '|', '切り取り', 'コピー', '貼り付け']);
ToolBar.ShowCaptions := True;
ToolBar.Height := 40;
end;