Procedimientos y Triggers

[subzero]

Hola a todos en el foro:

Alguien me podía decir como se pueden crear procedimientos o triggers desde delphi en Interbase, las versiones que estoy utilizando son la 7 de delphi y la 6 de Interbase.

Cabe anotar que ya he tratado pero me presenta un problema con los TERM

sql.Add('CREATE TRIGGER DISP_EVAL_INT_GRAF_CONS_' + AnsiUpperCase(Logica.registro_usuario.login_usuario) + ' FOR VAL_INTERNA_GRAFICO_ADMIN ACTIVE');
sql.Add('BEFORE INSERT POSITION 0');
sql.Add('AS BEGIN');
sql.Add('IF (NEW.CONSECUTIVO IS NULL) THEN');
sql.Add(' NEW.CONSECUTIVO = GEN_ID(EVAL_INT_GRAF_CONS_' + AnsiUpperCase(usuario) +', 1);');
sql.Add('END');