Делаю так

procedure TMainForm.New1Click(Sender: TObject);
var
 bu: TButton;
begin
    bu:=TButton.Create(CoolBar1);
                bu.Parent:=CoolBar1;
    bu.Name:='but1';
    bu.Caption:='but1';
end;

создает каждую кнопку отдельном CoolBand а надо все в одном как ето исправить?

а что такое CoolBand ?

на нём как раз и отображается кнопка

ну так и пешите паренту Вашей новой кнопки - CoolBand
bu.Parent:=CoolBand;

помогло но есть ещё вопрос как зделать так чтобы кнопки располагались как окна на панели задач а то они закрывают друг друга

Для: VahaC
пишите при создании кнопки TOP и LEFT соответственно - это и будут координаты кнопок на CoolBand относительно веръхнего левого угла

bu.Align:= alLeft