如何获取表(0分)

procedure TFormMain.FormCreate(Sender: TObject); // Get alias names
begin
if Session.Active = false then
Session.Open;
Session.GetAliasNames(CmbxSourceAlias.Items);
cmbxDestAlias.Items := cmbxSourceAlias.Items;
end;

procedure TFormMain.cmbxSourceAliasChange(Sender: TObject);
begin
if cmbxSourceAlias.ItemIndex <> -1 then
begin
tblSource.DatabaseName := cmbxSourceAlias.Items[cmbxSourceAlias.ItemIndex];
Session.GetTableNames(tblSource.DatabaseName,'',true,false,cmbxSourceTable.Items);
end
else
begin
tblSource.DatabaseName := '';
cmbxSourceTable.Items.Clear;
end;
end;
其中CmbxSourceAlias,cmbxSourceTable为组合框
以上只能获得dbdemos，defaultdd，lbcoal下的表，如何既获得指定路径下的表又可以获得
dbdemos，defaultdd，lbcoal下的表？