Delphi Как определить, существует ли таблица в базе данных

[Lomanu4]

SQL

SELECT COUNT(*) QTDE
FROM RDB$RELATIONS
WHERE RDB$FLAGS=1 AND RDB$RELATION_NAME= 'NOME_TABELA'

Delphi

procedure VerificaTabela;
var
  vListaTabela : TStrings;
begin
  vListaTabela := TStringList.Create;
 
  FdConnection1.GetTableNames('', '', '', vListaTabela);
 
  if vListaTabela.IndexOf('CLIENTE') < 0 then
  begin
    ShowMessage('Tabela cliente encontrada!');
  end;
 
  vListaTabela.Free;
end;