如何使用ComboBox过滤DBGrid中的数据？

例如，如果ComboBox文本为“表1”，则DBGrid将显示表1。

这是我尝试过的代码：

procedure TForm4.cbb2Change(Sender: TObject);
begin
  if cbb2.Text = 'Surat Masuk Edaran' then
    with DataModule1.zqry_srt_masuk_edaran do
    begin
      dbgrd1.DataSource.DataSet := 'ds_srt_masuk_edaran'
    end else

    if cbb2.Text = 'Surat Masuk Undangan' then
      with DataModule1.zqry_srt_masuk_undangan do
      begin
        dbgrd1.DataSource.DataSet := 'ds_srt_masuk_undangan'
      end else

      if cbb2.Text = 'Surat Masuk Lain-lain' then
        with DataModule1.zqry_srt_masuk_lain2 do
        begin
          dbgrd1.DataSource.DataSet := 'ds_srt_masuk_lain2'
        end;
end;