procedure TForm1.Button1Click(Sender: TObject);
Begin
GroupBox1.Tag:=1;
If GroupBox1.Visible=True then
Begin
GroupBox1.Tag:=2;
GroupBox1.Visible:=False;
End;
If GroupBox1.Tag=1 then If GroupBox1.Visible=False then
Begin
GroupBox1.Visible:=True;
End;
end;