Ado.DataSet как задать в параметр - таблицу на выбор

i:=dsAreaType.FieldByName('код_ВР').AsInteger;
if i=1 then t1:='РайоныМуниципалы';
if i=2 then t1:='РайоныГород';
dsAreaInfo.Close;
dsAreaInfo.Parameters.ParamByName('T').Value:=t1;
dsAreaInfo.Parameters.ParamByName('ID').Value:=dsAreaListTable.FieldByName('код_РЛ').AsInteger;
dsAreaInfo.Open;

if i=1 then t1:='РайоныМуниципалы';
if i=2 then t1:='РайоныГород';

var Raion: string;
begin
case i of
1: Raion:='РайонМуниципалитет'; 
2: Raion:='РайоныГород';
end;
ADODataSet1.CommandText:=Format('(select * from (%s) where код_РЛ = :ID)',[Raion]);
end;

procedure TfmObjectEdit.FormShow(Sender: TObject);
begin
  dsOBJECT.Close;
  dsOBJECT.Parameters.ParamByName('ID').Value:=objID;
  dsOBJECT.Open;
   TypeObjTable.Close;
   TypeObjTable.Open;
 if IsNew then
  begin
   IsEdit := False;
   Caption:= 'НОВЫЙ УЧАСТОК ';
   ToolButton4.Enabled:=false;
  end
  else
   Caption:= 'Карточка участка';
   ToolButton4.Enabled:=true;
end;

 
   Q.Close;
   Q.Sql.Text := 'select max([ОБ_код]) as ID from [dbo].[Объекты]';
   Q.Open;
    id:= Q.FieldByName('id').AsInteger+1;
    Q.Close;
    Q.Sql.Clear;
    Q.SQl.Add('insert into [dbo].[Объекты] ([ОБ_код],[ОБ_вид_код])');
    Q.SQl.Add(' values ('+IntToStr(id)+', 1)');
    Q.ExecSql;
    ObjecteditOrder.objID:=id;
    Objectedit.IsNew:=True;
       fmObjectedit.ShowModal;

procedure TfmObjectEdit.bbAreaTypeClick(Sender: TObject);
begin
 fmAreaList.ShowModal;
 if isNew then
  Begin
   dbeAdres.Text:=fmAreaList.dsAreaInfo.FieldByName('[ри_Адрес]').AsString;
  End;
end;