procedure TfrmR80.btnSettingClick(Sender: TObject);

begin

  if btnSetting.Caption = '收缩 <<' then

  begin

    frmR80.Height := btnSetting.Top + 27 + btnSetting.Height * 3 div 2;

    btnSetting.Caption := '扩展 >>';

  end

  else

  begin

    frmR80.Height := GroupBox2.Top + 27 + GroupBox2.Height + btnSetting.Height div 2;

    btnSetting.Caption := '收缩 <<';

  end;

end;