ButtonRows example for Delphi

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