Bazy i tablice

Jak sprawdzić czy istnieje jakaś baza (gł system paradox) oraz jak sprawdzić czy istnieje tablica o wcześniej wpisanej nazwie w jakiejś bazie (także gł system paradox)

// Database1 = Comp. Palette -> Data Access -> TDatabase
// Edit1 - TEdit z nazwą bazy danych

Database1.Connected := False;
try
  Database1.DatabaseName := Edit1.Text; //<-- alias lub ścieżka
  Database1.Connected := True;
except
  on EDatabaseError do
    ShowMessage('nic z tego, baza prawdopodobnie nie istnieje');
end;

// Table1 = Comp. Palette -> Data Access -> TTable
// Edit2 - TEdit z nazwą tabeli

Table1.Close;
Table1.DatabaseName := Database1.DatabaseName;
Table1.TableType := ttParadox; //<-- miało być dla paradoxów
try
  Table1.TableName := Edit2.Text;
  Table1.Open;
except
  on EDatabaseError do
    ShowMessage('nic z tego, tabela prawdopodobnie nie istnieje');
end;