Hola, mira el código del procedimiento GetExists del IBTable:
Código Delphi
[-]
function TIBTable.GetExists: Boolean;
var
Query: TIBSQL;
begin
Result := Active;
if Result or (TableName = '') then Exit;
Database.InternalTransaction.StartTransaction;
Query := TIBSQL.Create(self);
try
Query.Database := DataBase;
Query.Transaction := Database.InternalTransaction;
Query.SQL.Text :=
'Select USER from RDB$RELATIONS where RDB$RELATION_NAME = ' +
'''' +
FormatIdentifierValue(Database.SQLDialect,
QuoteIdentifier(DataBase.SQLDialect, FTableName)) + '''';
Query.Prepare;
Query.ExecQuery;
Result := not Query.EOF;
finally
Query.Free;
Database.InternalTransaction.Commit;
end;
end;
Quizás te interese hacer un procedimiento similar, pero que tenga en cuenta alguna opción más que quieras comprobar tu.
Salu2.