procedure TForm2.OcultarVisualizarPaneles(APanel: TPanel);
var
i:integer;
begin
for i := 0 to (ComponentCount - 1) do begin
if TPanel(Components[i]).Tag = 1 then begin
if (TPanel(Components[i]) = APanel) then
TPanel(Components[i]).Visible := True
else
TPanel(Components[i]).Visible := False;
end;
end;
end;