[Casimiro Notevi]

Empezado por AlejandroCalica

pero en un solo procedimiento se podra ?

Eso es un solo procedimiento

Código Delphi [-]
procedure TForm1.SomePanelsVisible(const Panels: array of TPanel);
var
  i: Integer;
begin
  for i := Low(Panels) to High(Panels) do
    Panels[i].Visible := True;
end;