Открыть в dbGrid таблицу с именем переменной

procedure TForm2.Button1Click(Sender: TObject);
var
 GrBox, PrBox, s, GrPr,DSTable : String;
  list:tstringlist;
begin
 GrBox := Grupbox.Text;    // Получаем данные из комбобоксов
 PrBox := PredBox.Text;
 If (GrBox = '') then showmessage('Выберите группу')   //Проверка на наличие данных в боксах
 Else
 Begin
 if
  (PrBox = '') then showmessage('Выберите предмет')
  Else
  Begin
 s := GrBox;
 GrBox := Translit(s);                                  //Обращение к функции транслита
 s := Prbox;
 PrBox := Translit(s);
 GrPr := GrBox + '_' + PrBox;                          //Объедение переменных и получение имени запрашиваемой клиентом таблицы

ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('Select * From ' + GrPr);
ADOQuery.Open;

program Jurnal;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  DM in 'DM.pas' {DataModule3: TDataModule};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TDataModule3, DataModule3);
  Application.Run;
end.

  Application.CreateForm(TDataModule3, DataModule3);