[pmtzg]

hola compañeros , tengo la siguiente situación, cuando intento saber si una tabla existe en una base de datos nunca me regresa el valor de True
a pesar de que la tabla existe este es mi codigo

Código Delphi [-]
 
 
Ibdatabase1.DatabaseName:= 'D:\Prueba\NDocto\BdIbx.fdb';                           IBDatabase1.DefaultTransaction:=IBTransaction1;
IBDatabase1.Params.Add('user_name=SYSDBA');
IBDatabase1.Params.Add('password=masterkey');
ibtransaction1.DefaultDatabase:=ibdatabase1;
ibdatabase1.Connected:=true;
ibdatabase1.Open;
IBtransaction1.Active:=true;
Ibscript1.Database:= Ibdatabase1;
ibsborra.Database:=ibdatabase1;
mitable:='latabla';   {nombre de la tabla}
IBscript1.Script.Strings[0]:='CREATE TABLE '+mitable;
IBSborra.Script.Strings[0]:='DROP TABLE '+mitable;
IBtable1.Database:=IBdatabase1;
IBtable1.TableName:=mitable;
IBtable1.Transaction:=IBtransaction1;
    if IBtable1.Exists then
       begin
       IBSborra.ExecuteScript;   {borro la tabla con datos};
       end;
      ibscript1.ExecuteScript;  {creo la tabla vacia}

no se que me falta o que estoy haciendo mal
espero que me puedan aydar
si quito el

if IBtable1.Exists then

y corro asi me programa si crea tabla o la borra
pero el problema viene cuando existe la tabla y no la borra
y ejecuto volver a crear una tabla nueva con el mismo nombre

gracias