求教GroupBox1的控制属性有关问题

求教GroupBox1的控制属性问题
我在新窗体放置个GroupBox1控件， 再新建个Button1 如何点击Button1 实现GroupBox1的alClient铺满窗口功能 再点击Button1 ，GroupBox1返回原始状态呢
[解决办法]

var
  oldRect: TRect;
  flg: Boolean = False;

procedure TForm1.FormCreate(Sender: TObject);
begin
  oldRect.Left := grp1.Left;
  oldRect.Top := grp1.Top;
  oldRect.Right := grp1.Width;
  oldRect.Bottom := grp1.Height;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if not flg then
  begin
    flg := True;
    grp1.Align := alClient;
  end
  else
  begin
    flg := False;
    grp1.Align := alNone;
    grp1.SetBounds(oldRect.Left, oldRect.Top, oldRect.Right, oldRect.Bottom);
  end;
end;