Tabelle durch String auswählen

[Smiley]

Ich lese aus einer Datei den Tabellennamen und die dazugehörigen daten ein und will diese eintragen.
Dazu setze ich den Tabellennamen anhand eines Strings den ich aus der Datei bekomme auf eine temporäre Tabelle und schreibe die Daten rein.
Dazu habe ich mir folgendes Konstrukt einfallen lassen, was mir aber dafür sehr aufwendig erscheint.
Bestimmt gibt es eine ganz einfache Lösung um den Tabellennamen zu setzen, dafür brauche ich Eure Hilfe.

In meinem DataModul DM sind alle Tabellen angelegt.

Delphi-Quellcode:

//******************************************************************************
//***************** Tabelle setzen anhand von String ***************************
//******************************************************************************
Procedure SetTbl(Tbl:String);
Var
  DB:TADOTable;
  Ind: Byte;
  i:Byte;
Const
  ArrayTbl: Array [0,38] of String=('Herst','VerpEinh','AE','Spur','System'........);

Begin

  for i:= 0 to 38 do
    if Tbl=ArrayTbl[i] then Ind:=i;


    case Ind of
    0:
      begin
        DB := DM.TBHerst;
        DBGrid1.DataSource := DM.DSHerst;
      end;
    1:
      begin
        DB := DM.TBVerpEinh;
        DBGrid1.DataSource := DM.DSVerpEinh;
      end;

.....usw.