ButtonColumns example for Delphi

Procedure TForm1.Button1Click (Sender: TObject);
begin
   LEADAnn1.AnnToolbar.ButtonColumns:= LEADAnn1.AnnToolbar.ButtonColumns+ 1;
end;