关于groupbox点击按钮自动适应窗口问题

Question

窗体左侧Groupbox1 带按钮 右侧Groupbox2 
点击按钮Groupbox1 铺满全屏 再点击下Groupbox1 返回原始状态我想问窗口放大以后点击按钮Groupbox1 返回时如何自动适应最大窗口var
  oldRect: TRect;
  flg: Boolean = False;procedure TForm1.FormCreate(Sender: TObject);
begin
  oldRect.Left := Groupbox1.Left;
  oldRect.Top := Groupbox1.Top;
  oldRect.Right := Groupbox1.Width;
  oldRect.Bottom := Groupbox1.Height;
end;procedure TForm1.btn1Click(Sender: TObject);
begin
  if not flg then
  begin
    flg := True;
    Groupbox1.Align := alClient;
  end
  else
  begin
    flg := False;
    Groupbox1.Align := alNone;
    Groupbox1.SetBounds(oldRect.Left, oldRect.Top, oldRect.Right, oldRect.Bottom);
  end;
end; 不放大窗口的时候都正常 但是放窗口就不同步了
如图1
不放大的时候点击返回正常
图2放大情况下点击按钮返回就不能自动适应红色范围内，请问如何解决呢

Answer 1

Groupbox1 对齐属性设为alclient， Groupbox2设为alright，你隐藏 Groupbox2就行了，就可以实现伸缩，还原

Answer 2

我隐藏了 正常界面都没问题 我是说窗体最大化的时候Groupbox1 点击按钮返回的时候就不能自动适应了