I have 10 buttons with name like Button1,Button2....

How can i make a simple procudere like

Procedure showbuttons(howmany: byte);
var
i: integer;
begin
for i := 0 to howmany do
button(i).visible := true; ?
end;

Thanks.... I think is simply but i stack... My brain is stack...