Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

TABELAS - VERIFICA SE EXISTE ALGUMA ABERTA NO SISTEMA

procedure TForm1.Button2Click(Sender: TObject);
var i, Encontrado : integer;
begin
  encontrado := -1;
  for i:=0 to Session.Databases[0].DataSetCount-1 do
  begin
    if Session.Databases[0].DataSets[i].State <> dsInactive then
      Encontrado := i;
  end;
  if Encontrado > -1 then
    ShowMessage(Session.Databases[0].DataSets[Encontrado].Name);
end;