Criar tabela dinamicamente com IBX

CREATE TABLE "DEPENDENTE" 
(
  "IDENTIFICADOR" VARCHAR(32) CHARACTER SET WIN1252 NOT NULL COLLATE PXW_INTL850,
  "ID_PESSOA" INTEGER NOT NULL,
  "DATA" DATE,
  "NOME" VARCHAR(100) CHARACTER SET WIN1252 COLLATE PXW_INTL850,
  "GRAU" VARCHAR(32) CHARACTER SET WIN1252 NOT NULL COLLATE PXW_INTL850,
 PRIMARY KEY ("IDENTIFICADOR")
);
ALTER TABLE "DEPENDENTE" ADD FOREIGN KEY ("ID_PESSOA") REFERENCES "PESSOAFISICA" ("IDENTIFICADOR") ON UPDATE CASCADE ON DELETE CASCADE;

  procedure SQL_Cria_Campos;
  var
    Transacao : TIBTransaction;
    qry       : TIBQuery;
  begin
    qry       := TIBQuery.Create(nil);
    Transacao := TIBTransaction.Create(nil);
    try
      qry.Transaction                  := Transacao;
      qry.Database                     := DM.BancoDados;
      DM.BancoDados.DefaultTransaction := Transacao;
      with qry do
      begin
       Transacao.StartTransaction;
       try
        Close;
        SQL.Clear;
        SQL.Add(´CREATE TABLE DEPENDENTE.... );
        EXECSQL;
        Transacao.CommitRetaining;
       except
        Transacao.RollbackRetaining;
       end;
    end;
    finally
      qry.Free;
      Transacao.Free;
    end;
  end;